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Recorrer 
el circuito 


Iniciamos una serie dedicada a 
analizar los componentes de las 
placas de circuito impreso de 
diversos micros. En primer 
lugar, centraremos nuestra 
atención en el microprocesador 








Mirando una fotomicrografía de un microprocesa- 
dor típico percibimos cuadrículas geométricas, que 
son los registros internos del procesador, varias pis- 
tas rectangulares alrededor de la parte exterior, 
donde se realizan las conexiones externas, y zonas 
de sistemas de circuitos lógicos entremezclados. 

También es posible discernir grupos de líneas 
que son los enlaces de comunicación interna entre 
los diversos componentes del chip. Es posible apre- 
ciar que la arquitectura de un procesador está de- 
terminada por las restricciones de un trazado bidi- 
mensional y por la cantidad física de componentes 
que se pueden incluir en un chip. 

Lo que en realidad hacen las instrucciones del 
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procesador es poner en funcionamiento una cadena 
de “microeventos” electrónicos, y éste es el punto 
en donde se traza la línea divisoria entre software y 
hardware. Vamos a ilustrar esto tomando el ejem- 
plo de una instrucción sencilla: sumar un número al 
valor del acumulador y volver a colocar el resultado 
en el acumulador. El diagrama (abajo) muestra un 
ejemplo clásico de arquitectura de procesador de 
una forma simplificada. Todos los registros inter- 
nos están unidos mediante un bus de datos interno 
y cada registro tiene conectadas líneas de control de 
modo que todas las operaciones de transferencia de 
datos entre registros y el bus de datos están sincro- 
nizadas. Estas líneas de control se unen en una uni- 
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局 Ampliación 
If Esta 
fotomicrografía es 
una imagen muy 
ampliada de un chip 
Zilog 280, utilizado 
actualmente, entre 
otros, en el Spectrum y 
la gama Amstrad CPC. 
El Z80 posee más de 25 
registros en el chip, que 
aparecen como formatos 
rectangulares. Se pueden 
apreciar las conexiones del 
bus; alrededor del perímetro, 
40 rellenos de conexión unen 
el chip con las patillas que 
permiten montarlo en una 
placa de circuito impreso 


El procesador 

El diagrama muestra la 
arquitectura típica de un 
procesador de ocho bits. Los 
componentes en el chip se 
comunican a través de un bus de 
datos interno y señales de 
control internas, pero se 
mantienen en contacto con la 
memoria y otros dispositivos 
mediante señales de control y 
buses de datos y direcciones 
externos 
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Por el 
contador 


La unidad de control posee un 
contador que se dispara desde 
un reloj externo y un par de 
decodificadores que decodifican 
todos los valores del contador y 


el registro de instrucciones en 
lineas de control individuales. 
La unidad de microprograma 
tiene implementados los 
micropasos para cada 
instrucción en forma de 
circuitos lógicos que disparan 


las señales de contro! adecuadas 
en la secuencia correcta durante 


el ciclo buscar-ejecutar 





Circuito de micropasos 

Para nuestro ejemplo de 
instrucción ADD, es necesario 
establecer, en el paso 2 y el 


paso 7 del ciclo buscar-ejecutar, 


una señal de control 
determinada, la habilitación de 
salida en el registro de datos de 
memoria. Este circuito lógico 
simple combina la señal 206 del 
decodificador de instrucciones 
con las dos señales de contador 
decodificadas adecuadas para 
disparar “EO on M” 
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ENTRADAS 
“DEL CONTADOR 
AYC1,C2,C3....) 


dad de control central, de la que luego hablaremos 
con mayor detalle. 

La instrucci6n ADD (suma) inmediata que men- 
cionábamos anteriormente cobra vida en forma de 
un par de bytes en un programa más grande alma- 
cenado en la memoria del ordenador. El primer 
byte contiene la instrucción y el segundo, el núme- 
ro a sumar. Para obedecer esta instrucción, el pro- 
cesador primero debe traer de la memoria el byte 
de instrucción y después ejecutarlo: el ciclo buscar- 
ejecutar. El procesador sabe dónde obtener la ins- 
trucción, dado que su dirección estará retenida en 
el contador del programa (PC: program counter). 
Al describir el ciclo buscar-ejecutar, nos interesa 
particularmente la parte relativa a cómo gestiona la 
unidad de control las diversas transferencias entre 
registros. Esto se realiza enviándole señales enable 
(de habilitación) al registro correcto en el momento 
adecuado. El sistema que hemos utilizado para di- 
ferenciar estas señales es el siguiente: 
El: habilitar entrada a registro desde bus de datos 
interno 
EO: habilitar salida desde un registro hacia el bus de 
datos 
EOC: habilitar salida a la unidad de control 
EOA: habilitar salida al bus de direcciones 

El ciclo “buscar” comprende estos pasos: 












Paso Señales control Acción 














1 EOA on PC Copiar el cont. del PC 
en el bus de direcciones 

2 +1on PC Incrementar el PC 

3 E0 on M Copiar el contenido del 

El on | registro de datos de 

memoria en el registro de 
instrucciones 

4 EOC on | Copiar el contenido del 
registro de instrucciones 
en la unidad de control 








Al concluir estos cuatro pasos, en la unidad de con- 
trol hay la instrucción ADD, y el contador del pro- 
grama apunta al byte que contiene el nimero a 
sumar. Antes de analizar la forma en que se obede- 
ce la instrucci6n, veamos primero la unidad de con- 
trol. Consta de un registro en el cual se coloca la 
instrucción actual. un decodificador que decodifica 
los 8 bits de que consta el byte de instrucción en 256 
líneas separadas, una para cada posible valor que 
puede retener el byte. (Si no se utiliza la totalidad 
de los 256 posibles códigos para códigos de instruc- 
ción, la cantidad de líneas decodificadas puede ser 
menor.) Estas líneas decodificadas se amplian a la 
unidad de microprograma, junto con la salida deco- 
dificada desde un contador. En la unidad de micro- 
programa se halla la verdadera función de cada có- 
digo de instrucción, en forma de circuito lógico, y 
las salidas desde estos circuitos lógicos forman las 
diversas señales de habilitación de registros. Vea- 
mos ahora la parte “ejecutar” del ciclo: 





Paso Señales control Acción 
5 EOA on PC Traer el número a sumar 
Elon M aM 
6 +1 on PC Incrementar el PC listo 
para la sig. instrucción 
7 E0 on M Copiar el núm. en reg. 
Elon T temporal ALU 
8 selec. función Efectuar la suma 
ADD 
EO on T 
EQO on A 
9 EO on ALU Copiar el resultado en el 
ElonA acumulador 











Mientras que la parte “buscar” del ciclo es la misma 
en todos los casos, la parte “ejecutar” está diseñada 
a medida para llevar a cabo una determinada tarea: 
en este caso, para tomar el siguiente byte del pro- 
grama y sumárselo al valor en el acumulador. Cada 
código de instrucción posee su propio microprogra- 
ma, implementado como una serie de puertas legi- 
cas. Si observamos una señal de habilitación deter- 
minada (la que habilita la salida desde el registro de 
datos de memoria [EO on M]), podemos ver cómo se 
implementa la anterior secuencia “ejecutar”. Es 
necesario establecer EO on M en el paso 3 y el paso 7 
del ciclo buscar-ejecutar. Supongamos que el códi- 
go para nuestra instrucción ADD inmediata es 
11001110, 206 en decimal. Simplemente aplicando 
impulsos de apertura a la línea C7 del contador de 
pasos con la línea 206 desde el decodificador de ins- 
trucciones y relacionando el resultado con C3 me- 
diante una función OR, obtenemos una señal de ha- 
bilitación de salida para el registro de datos de me- 
moria. Por supuesto, muchas instrucciones diferen- 
tes podrían necesitar enviar señales de habilitación 
de salida a este registro, pero es tan sólo cuestión 
de relacionarlas entre sí mediante una OR. 

Los fabricantes de procesadores utilizan máqui- 
nas especiales, denominadas ordenadores micro- 
programables, para programar los micropasos de 
una instrucción desde software. Estas a menudo se 
utilizan para diseñar y desarrollar procesadores 
nuevos, en los que se puede desarrollar el conjunto 
de instrucciones antes de confiarlo al hardware en 
la unidad de control. 
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El coBot es el lenguaje 
informático de uso más 
generalizado en las 
aplicaciones comerciales 
y de gestión 
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El COBOL (Common Business Oriented Language) 
es con mucho el lenguaje de programación más 
ambpliamente utilizado en todo el mundo, y si bien 
el BASIC tal vez sea el más conocido, es probable 
que las verdaderas líneas de código escrita sen 
COBOL superen a la de todos los otros lenguajes jun- 
tos. Esto no se debe sólo a que el COBOL sea prolijo, 
necesitando de muchas líneas aun para un progra- 
ma simple, sino a que ha sido el principal lenguaje 
(casi el único) para uso comercial y de gestión. 

El coBoL es un lenguaje muy estandarizado. De 
hecho, existe un cuerpo permanente, el comité co- 
DASYL, que supervisa su uso y desarrollo. Este ele- 
vado nivel de normalización es importante por va- 
rios motivos. Es vital que una organización comer- 
cial sea capaz de transferir su software, lo que fácil- 
mente podría ser uno de sus más valiosos bienes, de 
un ordenador a otro sin ningún cambio sustancial, o 
mejor aún, sin ter.r que introducir ningún cambio 
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Estructura 


dividida 
Los programadores familiarizados 
sólo con el gasic es posible que 


opinen que la estructura de un 
programa en cosoL es un tanto 
extraña. No obstante, este 

lenguaje cumple ala perfección 
los requerimientos exigibles en 


cuanto a legibilidad, adaptabilidad 


y facilidad de revisión y 
actualización 
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en absoluto. Muchas empresas que operan con un 
gran ordenador central no desearán perder un va- 
lioso tiempo de esa máquina y esperarán que el de- 
sarrollo de programas se realice en una máquina 
completamente diferente, con lo que, nuevamente, 
resulta vital que los programas se puedan transferir 
con facilidad. 

Otro factor es que los programas comerciales son 
bastante distintos de los programas en BASIC que 
hemos escrito en nuestros micros personales. Son 
muy largos, constando a menudo de decenas de 
miles de líneas de código, y se tienden a escribir en 
equipo en vez de por un único programador, situa- 
ción que no es ideal para producir un código libre 
de errores. Se espera que los programas tengan una 
vida útil de varios años, durante los cuales se elimi- 
narán los errores y se efectuarán correcciones, am- 
pliaciones y mejoras. Todas estas revisiones las lle- 
varán a cabo uno o más programadores, quienes, 
muy probablemente, no serán los mismos que es- 
cribieron el programa original. 

Estas restricciones (y el hecho de que los progra- 
mas se escriban de acuerdo a unas especificaciones 
rígidas) pueden hacer de la programación en COBOL 
una de las tareas más tediosas que existen. No obs- 
tante, existe muchísimo interés en el lenguaje en sí 
mismo y no hay ninguno mejor que él para tareas 
que requieran tratamiento de archivos complejos. 

El aspecto y el funcionamiento de un programa 
en COBOL es muy diferente al de otros lenguajes, si 
bien encubiertos por su prolijidad podemos encon- 
trar algunos de los mismos conceptos que subyacen 
en todos los lenguajes procedurales. Los programas 
constan de cuatro divisiones: 


Identification division (división de identificación): 
es básicamente de índole documental, y proporcio- 


na un espacio para el nombre de un programa, el 
nombre del programador, fechas de escritura y 
compilación y comentarios introductorios. 
Environment division (división de entorno): está 
concebida como la parte dependiente de la máqui- 
na y contiene detalles relativos al ordenador con el 
cual se escribió y ejecutó el programa. Muchos de 
los detalles que se incluyen aquí están ahora en 
manos de los sistemas operativos modernos, de 
modo que actualmente esta división se utiliza fun- 
damentalmente para especificar archivos externos 
utilizados en el programa. 

Data division (división de datos): contiene detalle 
sobre todas las zonas de datos utilizadas por el pro- 
grama. En cierto sentido, es como la parte de de- 
claraciones de un programa en PASCAL, donde se 
introducen los nombres de las variables, aunque es 
algo peligroso usar el concepto de “variable” en su 
acepción normal tratándose de datos de cooL. En 
la división de datos hay dos secciones principales: la 
sección de archivos, que contiene esencialmente los 
trazados de registros para archivos externos, y la 
sección de trabajo-almacenamiento, para los datos 
utilizados sólo dentro de un programa. 

Procedure division (división de procedimientos): 
aquí se especifican las operaciones y procedimien- 
tos a llevar a cabo sobre los datos de la división de 
datos. Si fuera necesario, la división de procedi- 
mientos se podría dividir en dos secciones, y cada 
sección o la división entera está compuesta de pá- 
rrafos con nombre compuestos de oraciones. Una 
oración puede corresponder a una o más “senten- 
cias” o “instrucciones” que a su vez se pueden sub- 
dividir en cláusulas para modificar o calificar la ver- 
dadera operación que se esté efectuando. La es- 
tructura de la división de procedimientos está clara- 
mente diseñada para parecerse lo más posible al 
inglés común, lo que, en unión con largos identifi- 
cadores de hasta treinta caracteres, puede dar lugar 
a programas que resulten comprensibles no sólo a 
los programadores sino también a los no programa- 
dores. Sin embargo, escribir un “código espagueti” 
incomprensible en COBOL es tan fácil como en cual- 
quier otro lenguaje. 


Centraremos nuestra atención en la data division 
(división de datos), puesto que definir y designar 
las zonas de datos es una parte muy importante en 
un programa en COBOL. En relación a los datos, el 
punto de vista del coBoL consiste en considerar la 
división de datos como una larga serie de caracteres 
que se pueden dividir y subdividir a voluntad. Lo 
mejor es pensar en ella como si se tratara de un 
bloque de memoria. A las diversas divisiones que 
se efectúan en este bloque de datos se les asigna un 
nombre y se les otorga un número de nivel para 
indicar la estructura básica de los datos. 

Los números de nivel normales van de 01 a 49, 
con algunos adicionales. Una sección de la división 
de datos se definirá en el nivel 01. Esta sección se 
puede luego subdividir otorgándoles a las subsec- 
ciones números de nivel superior (02, p. ej.), si 
bien los números no necesitan ser consecutivos. 
Una de estas subsecciones se puede volver a subdi- 
vidir mediante el empleo de un número de nivel 
aún mayor, y así sucesivamente. 

Los nombres de datos pueden tener hasta 30 ca- 
racteres de longitud, usando solamente caracteres 
alfabéticos y numéricos y guiones. El coBoL posee 





un gran vocabulario de palabras reservadas que no 
se pueden utilizar para nombres de datos. No obs- 
tante, son pocas las que poseen guiones, de modo 
que no es dificil superar este problema. 

Es necesario distinguir entre dos tipos de datos: 
elementales y grupales. Un dato elemental es aquel 
que no está subdividido; en la división de procedi- 
mientos se puede aludir tanto a datos elementales 
como a grupales. Cada dato elemental ha de tener 
un USAGE y un PICTURE. Hay dos USAGE principa- 
les: COMPUTACION y DISPLAY. 

Como puede suponer, COMPUTATIONAL se utiliza 
para datos numéricos destinadosa cálculos y hará 
que el número se almacene en forma binaria en vez 
de una serie de caracteres, realizando, en conse- 
cuencia, los cálculos aritméticos con mayor rapi- 
dez. No obstante, un dato no tiene que ser COMPU- 
TATIONAL para poderse utilizar para cálculos. DIS- 
PLAY es el empleo pordefecto normal, que simple- 
mente significa que el dato se alamacena como una 
serie de caracteres. Cada uno de estos dos USAGEs 
puede ser objeto de otros refinamientos, según el 
sistema que se utilice; por ejemplo, COMPU- 
TATIONAL-3 para un número de punto flotante. 
La cláusula USAGE es opcional; si se omite, enton- 
ces se da por sentado DISPLAY. 

La cláusula PICTURE define el contenido espera- 
do de cada posición de carácter en un dato elemen- 
tal. Los principales símbolos utilizados con: 9 para 
indicar un carácter numérico; A para un carácter 
alfabético; X para un carácter alfanumérico; y V 
para indicar la posición de un punto decimal en un 
dato numérico. Normalmente el punto decimal no 
se almacena, pero el coBoL lleva el registro de su 
posición para que los cálculos se puedan realizar 
correctamente. 

Una $ indica que un dato numérico llega signo. Si 
se omite, entonces se toma automáticamente el 
valor absoluto de cualquier número almacenado. 
Hay opciones en cuanto a almacenar el signo como 
un carácter separado o no. (Observe que PIC es la 
forma abreviada de PICTURE, y que se puede utili- 
zar cualquiera de las dos.) Por último, además de 
un PICTURE y un USAGE, a cualquier dato se le 
puede asignar un valor inicial o especificarlo como 
una matriz. 

Al igual que el FORTRAN, el COBOL se diseñó origi- 
nalmente para usar con tarjetas perforadas. La lon- 
gitud de cada línea no puede ser mayor de 72 carac- 
teres y, de ser necesario, se debe utilizar una línea 
de continuación. El trazado está especificado estric- 
tamente, pero muchos sistemas permitirán un tra- 
zado más libre si el programa no está destinado 
para otra máquina. Las seis primeras columnas se 
utilizan para números de línea. El coBoL no requie- 
re números de línea, pero se pueden incluir para 
ayudar a la depuración. La columna 7 se usa para 
marcar una línea de continuación; un asterisco en 
esta posición indica un comentario. Las columnas 
de las 8 a la 11 son la zona A. Aquí empiezan los 
nombres de división, sección y párrafos, así como 
los datos de nivel 01. Otros datos y sentencias de la 
división de procedimientosempiezan en la zona B: 
columnas de la 12 a la 72. La mayoría de las decla- 
raciones de datos constituyen una oración y. por 
tanto, deben terminar con un punto. Si en un dato 
se necesitan caracteres a los que realmente no se 
alude en la división de procedimientos, entonces se 
utiliza la palabra reservada FILLER. 





Detalles personales 


Definición de datos para un registro de un archivo 
de personal: 


01 EMPLEADO-REGISTRO. 
02 EMPLEADO-NOMBRE. 
03 EMPLEADO-INITIAL PIC A. 
03 FILLER PIC X. 
03 EMPLEADO-APELLIDO PIC X(15). 
02 EMPLEADO-DEPARTAMENTO PIC XXX. 
02 EMPLEADO-SALARIO-CATEGORIA PIC 9. 
02 EMPLEADO-FECHA-NACIMIENTO. 
03 DIA-NACIMIENTO PIC 99. 
03 MES-NACIMIENTO PIC 99. 
03 ANO-NACIMIENTO PIC 99. 


Definición de datos para una línea de cabecera 
(heading) destinada a producir un informe a partir 
del archivo anterior: 


s O1HEADING-LINE. 

02 HEADING-1 PIC X(4) VALUE “NOMBRE”. 
02 FILLER PIC X(20)VALUE SPACES. 

02 HEADING-2 PIC X(10) VALUE 

“DEPARTAMENTO”. 
02 FILLER PIC X(3) VALUE SPACES. 
02 knn a PICX(9) VALUE “SAL 
TEG” 


CATEG”. 
02 FILLER PIC X(10) VALUE SPACES. 
02 raz pa PIC X(3) VALUE “FECHA 









Definición de datos para una línea de salida 
destinada a producir un informe a partir del archivo 
de personal: 


O10UTPUT-LINE. 
02 OUTPUT-NOMBRE. 
03 OUTPUT-INITIAL PICA. 
03 FILLER PIC X VALUE".”. 
03 OUTPUT-APELLIDO PIC X(15). 
02 FILLER PIC X(7) VALUE SPACES. 
02 OUTPUT-DEPARTAMENTO PIC XXX. 
02 FILLER PIC X(10) VALUE SAPCES. 
02 OUTPUT-SALARIO-CATEGORIA PIC 9. 
02 FILLER PIC X(18) VALUE SPACES. 
02 OUTPUT-FECHA-NACIMIENTO: 
03 OUTPUT-DIA PIC 99. 
03 FILLER PIC X VALUE*/”. 
03 OUTPUT;MES PIC 99. 
03 FILLER PIC X VALUE*/”. 
03 OUTPUT-ANO PIC 99. 







Definición de datos para una matriz unidimensional 
de veinte números de 3 dígitos y una matriz 
unidimensional de 10 * 20 números de 3 dígitos 
(con signo y un lugar decimal): 


01 DATA-TABLE-1. 
02 DATA-TABLE-ENTRY PIC S99V9 USAGE 
COMPUTATIONAL OCCURS 20 TIMES. 
01 DATA-TABLE-2. 
02 DATA-TABLE-ROW OCCURS 10 TIMES. 
03 DATA-TABLE-ENTRY-2 PIC S99V9 


USAGE 
COMPUTATIONAL OCCURS 20 TIMES. 


Registro de personal 

Vemos los tipos de datos 
utilizados para mantener un 
registro de información personal 
sobre los empleados. Observe el 
uso de PIC para especificar los 
tipos de datos esperados: 9 
indica un número, A un caracter 
alfabético y X un carácter 
alfanumérico 
















Diseño del trazado 

Aquí se define el trazado del 
informe a generar. A los datos 
se les pueden asignar valores 
iniciales. HEADING-2, por 
ejemplo, consta de 10 
caracteres 

alfanuméricos y se le ha 
asignado el valor 
DEPARTAMENTO 













Rellenando espacio 

Estas líneas especifican la línea 
de salida desde el archivo de 
personal. En los datos se 
pueden incluir caracteres aun 
cuando no se aluda a ellos en la 
división de procedimientos; esto 
se hace utilizando la palabra 
reservada FILLER, que se usa 
aquí y en el listado anterior para 
insertar espacios 


















Hecho para ser veloz 

Declarar un dato como 
COMPUTATIONAL, como hace 
esta sección del programa, 
significa que los valores se 
almacenan en formato binario en 
lugar de en caracteres. Ello hace 
que los ulteriores cálculos que 
utilicen el dato sean mucho más 
rápidos. No obstante, los datos 
no han de definirse 
necesariamente de esta manera 
si usted quiere efectuar 
operaciones aritméticas con 
ellos, pero los cálculos son 
datos retenidos como caracteres 
serán más lentos 











2145 


2146 


Facilidades 
adicionales 





Añadiremos algunas nuevas 
funciones a nuestro programa 
de hoja electrónica 


mamit maman 
Cuando se prepara una hoja electrónica para reali- 
zar una serie de cálculos, con frecuencia las fórmu- 
las a entrar en cada celda de una columna o fila 
determinadas son similares. Por ejemplo, quizá 
quisiéramos sumar cada elemento de la primera co- 
lumna con cada elemento de la segunda columna y 
colocar los resultados en la tercera. para llevar a 
cabo esta sencilla tarea, sería necesario entrar una 
fórmula en cada celda de la tercera columna. Sería 
preciso programar la primera celda de esta colum- 
na, A3, con fórmula A1 + A2; sería necesario pro- 
gramar la siguiente celda de la tercera columna, B3, 
con la fórmula B1 + B2, y así sucesivamente. Si 
bien las fórmulas no son idénticas, son similares, de 
modo que para evitar la tediosa tarea de tener que 
entrar manualmente las fórmulas en todas las cel- 
das de la tercera columna, sería de gran utilidad 
contar con una facilidad que entrara automática- 
mente fórmulas adecuadamente modificadas en 
una fila o columna entera (o en parte de ella). Este 
cometido lo lleva a cabo la función Reproducir (re- 
plicate). 

Las funciones Borrar (clear), Almacenar (store) y 
Recuperar (retrieve) actúan sobre la totalidad de la 
hoja y, como sus nombres indican, permiten que el 
usuario borre los datos de las celdas de la hoja com- 
pleta, almacene los datos para toda la hoja en la 
memoria (en lugar de en disco o cinta) y los recupe- 
re ulteriormente. 

Otra función útil para moverse por la hoja es la 
función Tab. Si bien es posible trasladarse a cual- 
quier parte de la hoja mediante el cursor, ello 
puede ser bastante lento, en especial porque la hoja 
se ha de reescribir cada vez que la ventana de pan- 
talla desfila por la hoja. La función Tab permite que 
el usuario salte hasta cualquier celda simplemente 
entrando el nombre de la celda. 


La función “Reproducir” 


Las subrutinas que manipulan la función Reproducir 
están ubicadas entre las líneas 5400 y 5995. La pri- 
mera rutina toma la fórmula a reproducir y la des- 
compone en los elementos que la constituyen. Esta 
rutina en realidad es llamada por la rutina Reprodu- 
cir principal y trabaja con una fórmula tomada de la 
matriz de fórmulas de infijos FS() y almacenada en 
C$. La fórmula se descompone en sus operadores, 
nombre de celdas y constantes, y se coloca en la 
matriz ES(). La rutina va explorando C$ carácter 
por carácter, y si el actual no es un operador se le 
añade una serie temporal, TS. Si el carácter es un 
operador, entonces se coloca T$ en el siguiente ele- 
mento libre de ES() (ya que encontrar un operador 
significa que en T$ hay almacenado un operando 


completo). El operador que se acaba de encontrar 
también se añade a ES(). El proceso continúa hasta 
haber explorado la fórmula en su totalidad. 

La siguiente sección de código, entre las líneas 
5500 y 5650, contiene la rutina “entrar y verificar”. 
Esta permite que el usuario dirija la función Repro- 
ducir para que actúe sobre un grupo de celdas de- 
terminado y está escrita para aceptar instrucciones 
con el formato A1(B1-F1. Esto significa: tomar la 
fórmula de la celda A1 y reproducirla en la columna 
l entre B1 y F1. Por el contrario, para reproducir a 
lo largo de una fila, se podría entrar una instrucción 
como ésta: A1(A2-A10. La primera sección de la ru- 
tina de entrada, entre las líneas 5500 y 5520, com- 
prueba que la entrada posea una sintaxis correcta. 
A continuación, se divide la entrada para extraer 
los tres nombres de celda sobre las que es necesario 
trabajar. Estos nombres se colocan en seguida en 
R1S, R2$ y R3S. 

La siguiente sección, en la línea 5700, es el verda- 
dero punto de entrada a la rutina Reproducir, siendo 
su función la de decidir si la instrucción implica que 
se ha de reproducir una fila o una columna y saltar 
a la rutina para reproducir una fila o una columna 
adecuada. Se puede decidir si se ha de reproducir 
una fila o una columna examinando los tres nom- 
bres de celdas entrados como parte de la instruc- 
ción Reproducir. Cada nombre de celda se compone 
de una letra seguida por un número. Si cada uno de 
los tres nombres de celda comienzan con la misma 
letra, como en A1(A2-A10, luego está claro que la 
reproducción de fórmula debe realizarse a lo largo 
de una fila, en este caso, la fila A. Sin embargo, si la 
parte numérica de cada nombre de celda es la 
misma, por ejemplo A3(B3-H3, entonces se ha de 
reproducir una columna. Un efecto colateral de la 
comprobación de fila o de columna es que las en- 
tradas ilegales, tales como A1(B1-F2, se detectan au- 
tomáticamente. 

En las líneas 5800 a 5895 encontramos el código 
que reproduce una fórmula a lo largo de una co- 
lumna. En primer lugar, se llama a la rutina que 
analizábamos primero y que descompone la fórmu- 
la a reproducir. En la línea 5820, un bucle FOR- 
...NEXT utiliza los valores ASCII de los primeros 
caracteres de R2$ y R3$ (los nombres de las celdas 
entre las cuales se ha de reproducir la fórmula) 
como sus variables de control. Entonces comienza, 
en la línea 5830, la tarea de construir la nueva fór- 
mula para cada celda. 

En esta etapa es interesante analizar las limita- 
ciones de la función Reproducir. Cuando usted re- 
produce una fórmula a lo largo de una columna, la 
función sólo trabajará adecuadamente si cada nom- 
bre de celda dentro de la fórmula a reproducir 
posee la misma letra de fila. Ello significa que una 
fórmula como A1+A2*A3 se reproducirá con todo 
éxito, no así se tratara de A1+A2*B2. Sin embar- 
go, ésta no es una restricción seria, porque la mayo- 
ría de las aplicaciones que se valen de la función 
Reproducir emplean fórmulas que trabajan sobre 
elementos de una sola fila. 


“Borrar”, “Almacenar”, 
“Recuperar” y “Tab” 


El código para todas estas cortas rutinas se da entre 
las líneas 5000 y 5395. Borrar la hoja es una cues- 





tión muy simple. La matriz (M(.), utilizada para 
retener los datos de celda para toda la hoja, se esta- 
blece en cero mediante un par de bucles FOR...NEXT 
anidados, y en virtud de la llamada a la subrutina 





















Facilidades adicionales 


de la línea 1700 se reimprime la hoja de la pantalla. Commodore 64: : 
Para almacenar y recuperar la hoja de datos se 2320 >LET Arora 15+ 1,170 ):LET 
: : ON ai i 1)"15 
emplea una segunda matriz, N(,). Las rutinas alma- eere san 


RAF MA 
5010 FOR l=1 TO 15:FOR J=1 TO 15:M(l,J)=0:NEXT J,l: 
OSUB 1700:RETURN 


G 
5100 REM **** TOMAR HOJA ANTERIOR **** 
5110 FOR l=1 TO 15:FOR J=1 TO 15 
5120 M(I,J)= N (I,J): J, 
5130 1700: REM IMPRIMIR DATOS 


..... ..o. 


5150 ALMACENAR HOJA 

5160 FOR I=1 TO 15:FOR J=1 TO 15 

5170 MS TA papi NEXT J,I 

5180 RETURN:REM IMPRIMIR DATOS 
CELDA ** 


cenar y recuperar transfieren el contenido de M(,) 
a N(,), o viceversa. 

La rutina Tab empieza en la línea 5200 y acepta 
como entrada un nombre de celda. Antes de rees- 
cribir la hoja, es necesario volver a calcular los limi- 
tes horizontales y verticales de la ventana de panta- 
lla. Además de reimprimir los datos de la hoja, se 
han de imprimir nuevas etiquetas de columna y fila 


para dar cabida al hecho de que la ventana de la REM OU "RUTINA GOTO 
hojua puede haberse modificado a consecuencia 5210 e piyon MOVER HASTA LINEA ENTRADA lan 
del desplazamiento a una nueva celda. INPUT “NUEVA CELDA: NCS i 







5305 

5315 IF X« 6 THEN H1=1:H2=H1+4:GOTO 5330 
5316 IF X«11 THEN H1=6:H2=H1+4:GOTO 5330 
5320 H1=11:H2=1 

5330 IF Y<9 THEN son :V2=V1+7:G0OTO 5360 
5340 V1=8:V2=V1+7 

5360 GOSUB 1800:REM IMPRIMIR COLUMNAS 
5370 GOSUB 1850:REM IMPRIMIR FILAS 

5390 ko 700:REM REIMPRIMIR HOJA 

5395 GOTO 11 

5400 REM al O CONFECCIONAR LISTA DE ELEMENTOS DE CS 


5405 P=0:LP=1:1="":TES"" 

S420 LÈT Pap MA P> le THEN ES(LP)=TS:RETURN 
=P+ = 

5430 TES=MIDS( 

5440 IF LA Se OA Teg=*—" OR TEB="*"08 让 sr 


5445 IF TES=""" OR TES="(” OR TES=")" THEN 5460 
E TS=TS+ TES: pes, 






Obtener entrada 
instrucción válida 












Este diagrama muestra cómo 
actúa la función REPRODUCIR 
en nuestra hoja electrónica. En 
primer lugar, la rutina toma y 
comprueba una instrucción 
REPRODUCIR y trae la fórmula 
que se ha de reproducir desde 
FS(). El resto de la rutina trabaja 
a través de la fórmula 
efectuando los cambios de 
fórmula adecuados para cada 
celda de la fila o columna que se 





















esté reproduciendo. Las 5465 多 -人 Ir 
fórmulas resultantes se vuelven 5470 ES(LP)=TES:LP=LP+1 
a colocar en FS() para que las arè. 5420 








FOR K=ASC(R28) to 


FOR Ki = 1 to LP 


utilicen las rutinas “calcular y 
visualizar fòrmula”. 
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5510 Aia AND MIDS(RS,4,1)<>"(" THEN 


5515 IF MIDS(RS,6,1)<> “-” AND MIDS(RS,7,1)<> “-" AND 
MIDS(R$,8,1)<> “-” THEN 5500 

5517 IF RS=“” THEN 5500 

5520 LET P=P+1 

5530 LET TS=MIDS(RS,P,1) 

5540 IF TS“(" THEN P=P+1:GOTO 5570 

5550 LET R1S=R1S+TS 

5560 GOTO 5520 

5570 LET TS=MIDS(RS,P, 1) 

5580 IF TS="-" THEN P=P+1:GOTO 5610 

5590 LET R25=R2S+TS 

5600 LET P=P+1:GOTO 5570 

5610 LET TS=MIDS(RS,P,1) 

5620 LET R3S=R3S+TS 

5630 LET P=P+1 





5830 FOR Ki=1 TO LP 

5840 LET TES=MIDS(ES(K1),1,1) 

5845 IF TES> ="0" AND TES< ="9" OR TES=".” THEN 
TS=TS+ES(K1):GOTO 5880 

5850 IF TES=R1S THEN TS=TS+ CHRS(K) + 
MIDS(ES(K1),2):GOTO 5880 

5860 IF TES="+" OR TES="-" OR TES=""" THEN 
TS=TS+TES:GOTO 5880 

5865 IF TES="/" OR TES=""" OR TES="(" OR TES=")” THEN 
TS=TS+ TES:GOTO 5880 

5870 IF TES<>"" THEN TS=TS+ TES 

5880 NEXT K1 

5890 FS((K-65)"15+R1)=TS: ano laa 65)"15+R1)="" 

5895 NEXT K:GOSUB 1900:RETURN 

5900 REM **** REPRODUCIR FILA """" 

5905 LET CS=FS((ASC(R1$)-65)”15+R1) 

5910 GOSUB 5400:REM CONFECCIONAR LISTA DE 


5640' IF P<= LEN (RS) THEN 5610 

5650 RETURN 

5700 REM ** an COLUMNA O FILA *** 
5730 ran 5500:REM COMPROBAR SI ENTRADA 


ALIDA 
5765 kin =VAL(MIDS(R1S,2)):R1S= MIDS(R1S,1,1) 
5770 R2=VAL(MIDS(R2S,2)):R2S= MIDS(R2S,1,1) 
5775 R3=VAL(MIDS(R3S,2)):R3S= MIDS(R3$,1,1) 
5780 IF R1=R2 AND R1=R3 THEN 5800 
5790 IF MIDS(R1S,1,1)=MIDS(R2S, 1,1) 

AND MIDS(R1S, 1,1) =MIDS(R3S, 1,1) THEN 5900 
5795 GOTO 5700 
5800 REM **** REPRODUCIR COLUMNA **** 
5805 LET CS=FS((ASC(R18)-65)" 15+R1) 
5810 GOSUB 5400:REM CONFECCIONAR LISTA DE 

ELEMENTOS 
5820 FOR K=ASC (R2S) TO ASC(R35):TS="" 


Spectrum: 

5000 > REM *** BORRAR MATRIZ *** 

5010 DIM M(15,15):GO SUB 1700: RETURN 

5100 REM *** TOMAR HOJA ANTERIOR **** 

5110 FOR l=1 TO 15: FOR J=1 TO 15 

5120 LET M(I,J)=N(1,J) 

5130 NEXT J: NEXT | 

5140 GO SUB 1700: RETURN 

5150 REM ALMACENAR HOJA ACTUAL EN 
MEMORIA 

5160 FOR l=1 TO 15: FOR J=1 TO 15 

5170 LET N(1,J)=M(1,J): NEXT J: NEXT I 

5180 GO SUB 1700: RETURN 

5200 REM **** RUTINA GOTO CELDA **** 

5210 PRINT AT 18.0;" ENTRE NUEVA 


CE 
5220 INPUT LINE N$ 
5225 IF LEN (NS) < 3 THEN LET NS=NS+ ” ” 
5230 LET NS=NS(1 TO 3):LET OS=NS(2 TO 3) 
5240 LETNS=NS(1) 
5250 IFNS<"A” OR NS» “0” THEN GO TO 5210 
5260 lou" (0$)<1 OR VAL (0$)» 15 THEN GO TO 


5280 GO SUB 1600: REM APAGAR CURSOR 
5300 LET Y=CODE (NS)-64 

5305 LET X=VAL (0$ 

5310 LET VL=V2: LET HL=H2 

5315 IF X< H1 THEN GO TO 5330 

5316 IF X< H2 THEN GO TO 5335 

5320 n Jo H2=15: GO 


0 5340 

5330 LET H1=X: LET H2=H1+3 

5335 IF Y< V1 THEN GO TO 5350 

5336 IF Y< V2 THEN GO TO 5360 

5340 IF Y> =9 THEN LET V1=9: LET V2= 
V1+6: GO TO 5360 

5350 LET Vi=Y: LET V2=Y+6 

5360 GO SUB 1800: REM IMPRIMIR COLUMNAS 

5370 GO SUB 1850: REM IMPRIMIR FILAS 

5380 IF V2=VL AND H2=HL THEN GO SUB 1650: 
GO TO 1100 

5390 GO SUB 1700 

5395 GO TO 1100 

5400 REM **** CONFECCIONAR LISTA DE 
ELEMENTOS DE I$ *** 
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ELEMENTOS 
5920 FOR K=R2 TO R3:TS="" 
5930 FOR K1=1 TO LP 
5940 LET TES=MIDS(ES(K1),1,1) 


5945 IF (TES» ="0" AND TES <="9") OR TES=".” THEN 


TS=TS+ES(K1):GOTO 5980 
5950 IF TES>="A” AND TES<="0" 


THEN TS=TS+TS+MIDS(STRS(K),2):GOTO 5980 
OR TES=“"" THEN 


5960 IF TES="+" OR TES="-" 
TS=TS+TES:GOTO 5980 


5965 IFTES="/" OR TES=""" OR TES="(" OR TES= 


TS=TS+TES:GOTO 5980 


5970 IF TES<>""” THEN TS=TS+TES 


5980 NEXT K1 


5990 ko gani na 15+K)=TS:PSS((ASC(R18)-65 


5995 NAT K: GOSUB 1900:RETURN 


5405 LET P=0: LET LP=1: LETTS="":LETUS="" 
5410 DIM ES(20,5) 
5420 LET P=P+1: IF P> LEN (CS) THEN LET 
LP)=TS: RETURN 
US=CS(P) 
5440 IFUS="+"” ORUS="—”" OR U$="*" OR 
US="/” THEN GO TO 5460 
5445 ke " OR US= “(” OR US=“)” THEN GO 


5450 LET T$=T$+US$: GO TO 5420 

5460 LET ES(LP)=TS: LET LP=LP+1 

5470 LET ES(LP)=US: LET LP=LP+1 

5480 LETTS="": GO TO 5420 

5500 REM *** REPRODUCIENDO *** 

5505 LET P=0: LETXS=" 
LETTS="" 

5510 IF RS(3)<>*(” AND RS(4)<>"(” THEN GO 
TO 5660 


5515 IF RS(6)<> “—” AND RS(7)«»"—” AND 
RS(8)«»"—” THEN GO TO 5660 

Bi 

5540 E 13 CT LET P=P+1:60 TO 


5550 LET XS=XS+TS 

5560 GO TO 5520 

5570 LET TS=RS(P) 

5580 ap THEN LET P=P+1:60 TO 
1 

5590 LET YS=YS+TS 

5600 LET P=P+1: GO TO 5570 

5610 LET TS=RS(P) 

5620 LET ZS=ZS+TS 

5630 LET P=P+1 

5640 IF P< = LEN (RS) THEN GO TO 5610 

5650 RETURN 


5670 PRINT AT 18,0;"ERROR EN SERIE 
REPRODUCIR 

5680 RETURN 

5700 REM **** DECIDIR COLUMNA O FILA **** 

5710 PRINT AT 18,0;"REPRODUCIR:” 

5720 INPUT LINE RS 

5730 GO SUB 5500 


":LETYS"”: LETZS="”: 


“)” THEN 


5765 LET R1=VAL (XS(2T0 )): LET XS=XS(1) 

5770 LET R2=VAL (YS(2 TO )): KET YS=YS(1) 

5775 LET R3=VAL (Z$(2 TO )): lapey DA 

5780 IF R1=R2 AND R1=R3 THEN GO TO 5800 

5790 IF XS=Y$ AND X$=ZS THEN GO TO 5900 

5795 GO TO 5700 

5800 REM **** REPRODUCIR COLUMNA ” 

5805 LET CS=FS((CODE (X$)-65)"15+R1) 

5810 GO SUB 5400: REM ELABORAR LISTA DE 
ELEMENTOS 

5820 FOR K=CODE EvS TO CODE (Z$): LETTS="" 

5830 FOR J= TO LP 

5840 LET US=ES(J) (TO 1) N 

5850 IF US=XS THEN LET TS=TS+ CHRS (K) + 
ES(J,2 TO ): GO TO 5800 

5860 IF US="+ ” OR US=“—” OR US="*” THEN 
LET TS=T$ +US: GO TO 588 

5865 IFUS="/" ORUS=""" OR US=“(" OR 
US=")” THEN LET TS=TS+US: GO TO 5880 

5870 IFUS<>"" THEN LET TS= Bi 

5880 NEXT J 

5882 LETUS="": FOR i=1 TO LEN As): IFTS (¡TO 
i) <>" ” THEN LET US= US+TS(i TO i) 

5885 NEXT i 

5890 LET FS((K-65)*15+R1)=US: LET 
HS((K-65)" 15+R1)="" 

5895 NEXT K: GO SUB 1900: RETURN 

5900 REM **** REPRODUCIR FILA **** 

5905 LET CS=FS((CODE (X$)-65)"15+R1) 

5910 GO SUB 5400: REM CONFECCIONAR LISTA DE 
ELEMENTOS 

5920 FOR K=R2 TO R3: LETTS="" 

5930 FOR J=1 TO LP 

5940 LET US=ES(J,1 TO 1) 

5950 IFUS> ="A” AND US< = “0” THEN LET 
TS=TS+US+STRS (K): GO TO 5980 

5960 IFUS="/” ORUS=""" OR US=“(” OR 
US=")” THEN LET TS=T$+US: GO TO 5980 

5970 I|FUS«»"” THEN LET TS=TS+US 

5980 NEXT J 

5990 LET FS((CODE(XS)-65)15+K)=TS: LET 
HS((CODE (X$)-65)"15+K)="” 

5995 NEXT K: GO SUB 1900: RETURN 








Juegos 


Persecucion 


El ladrón, representado por una máscara negra, ha escapado 
llevándose el botín... He aquí otra vez este conocido tema de la 
informática recreativa escrito en Basic para el MO5 de Thomson 


Se esconde en la ciudad, y usted tiene treinta minu- 
tos para encontrarlo y detenerlo. Atención, ¡no se 
precipite! Efectivamente, si se echa sobre él sin 
pensar, tiene todas las posibilidades de escapársele. 
La mejor manera de cogerlo es alcanzarlo de lado. 
(Es el método más eficaz a condición de no fallar). 
Si no se siente lo bastante seguro de sí mismo, atá- 
quelo de frente, lo cual es más fácil pero mucho 
menos eficaz, ya que no es tan discreto. Otro con- 
sejo: no intente perseguirlo; esto no le daría resulta- 
do, pues él es mucho más rápido que usted. Ha de 
observar sus movimientos, como un detective. 
Cuando vea que da la vuelta, acérquese sin hacer 
ruido y sorpréndalo en el momento justo. Pero re- 
cuerde: ¡el tiempo va pasando! 

Para desplazarse utilice la palanca de mando 
(joystick) o las teclas de control del cursor. 





E MÈ 
ET sa 
10 REM teren asensnnnnn 
20 REM * PERSECUCION * 
30 REM ee 
40 CLEAR „2 
50 GOSUB 1330 
60 8-0 550 LOCATE 10,10 1020 NEXT VX 
70 NS=CHRS(32) 560 PRINT “PUNTOS :”:S 1030 GOSUB 1240 
80 VS=GRS(1) 570 LOCATE 10,14 1040 VX=PX 
90 PS-GRSIO) 580 PRINT “PUNTUACION :":R 1050 VY=PY 
100 GOSUB 830 590 LOCATE 10,18 1060 COLOR O 
110 ON JK GOTO 180 600 PRINT “OTRA 7; 1070 LOCATE VX,VY 
120 0$=INKEYS 610 DS=INKEYS 1080 PRINT VS. 
130 DH=(0$=F1$) - (0$=F2$) 620 IF 0S="" THEN 610 1090 XV == VX 
140 DV= (DS=F38) - (DS=F48) 630 IF DS<>"N" THEN RUN 1100 YV=VY 
150 IF DH<> THEN DX=DH-DY=0 640 SCREEN 4.6.6 1110 GOSUB 1240 
160 IF DV<>0 THEN OY =DV:DX=0 650 CLS 1120 COLOR 1 
170 GOTO 210 660 END 1130 LOCATE PX.PY 
180 ST=STICK(0) 670 DT=DT+1 1140 PRINT PS: 
190 DX=(ST=7) -(ST=3) 680 GOSUB 780 1150 XP=PX 
200 DY=(ST=1) - (ST=5) 690 IF SCREENOX +CX,YV +CY)=32 THEN VX=XV 1160 YP=PY 
210 2=2-0.2 +CXVY =YV + CY RETURN 1170 2=30 
220 LOCATE 0,24 700 DT=DT-2 1180 CX=0 
230 COLORO 710 GOSUB 780 1190 CY=0 
240 PRINT “TIEMPO :" ANT (2+1) 720 IF SCREEN(XV + CX, YV +CY)=32 THEN VX=XV 1200 DX=0 
250 IF 2<0 THEN 500 +CX:VY = YV+CY-RETURAN 1210 DY=0 
260 PX=PX+DX 730 DT=DT-1 1220 DT=0 
270 PY=PY+DY 740 GOSUB 780 1230 RETURN 
280 C=POINT(PX"8+4,PY"8+4) 750 VX=XV +CX 1240 PX=INT (AND"38)+1 
290 IF C=0 THEN 1280 760 VY=YV+CY 1250 PY=INT (RND"22)+1 
300 IF C<> -4 THEN PX =XP-PY =YP 770 RETURN 1260 IF SCREEN (PX.PY) <> 32 THEN 1240 
310 LOCATE XP, YP 780 IF DIT>4 THEN DT =DT-4 1270 RETURN 
320 PRINT NS: 790 IF DIT<1 THEN DT=DT+4 1280 FOR l=1 705 
330 LOCATE PX.PY 800 CX=(DT=1)-(DT=3) 1290 PLAY “T1SREDO” 
340 COLOR 1 810 CY=(DT=2)-(DT=4) 1300 NEXT ! 
350 PRINT PS: 820 RETUAN 1310 S=S+1 
360 YP=PY 830 CLS 1320 GOTO 100 
370 XP=PX 840 COLOR 5 1330 SCREEN 4,3,3 
380 VX=VX+CX 850 FOR VX=0 70 39 1340 CLS 
390 VY=VY +CY 860 LOCATE VX,0 1350 DEFINT A-Y 
400 IF SCREEN(VX,VY)<>32 THEN GOSUB 670 870 PRINT CHAS(127) 1360 DEFGRS (0) =28,28,200,62.9,28,20,20 
410 IF SCREEN(VX.VY)<>32 THEN 380 880 LOCATE VX,23 1370 DEFGRS (1)=0,126,255,153,255,126,60,0 
420 LOCATE XV, YV 890 PRINT CHAS(127) 1380 FIS=CHRS(B) 
430 COLOR O 900 NEXT VX 1390 F2$=CHR$(9) 
440 PRINT NS; 910 FOR VY=1 T022 1400 F3S=CHRS(11) 
450 LOCATE VX.VY 920 LOCATE 0,VY 1410 F4S= CHRS(10) 
460 PRINT VS: 930 PRINT CHRS(127) 1420 ATTRE 1,1 
470 XV=VX 940 LOCATE 39, VY 1430 LOCATE 10,10,0 
480 YV=VY 950 PRINT CHRS(127) 1440 PRINT “JOYSTICK ?” 
490 GOTO 110 960 NEXT VY 1450 DS=INKEYS 
500 IF INKEYS<>"" THEN 500 970 COLOR 4 1460 PX=RND 
510 IFR<S THENR=S 980 FOR VX=1 TO 150 1470 IF DS="" THEN 1450 x< 
520 COLOR 0 990 GOSUB 1240 1480 IF DS="0" THEN JK=1 出 
530 LOCATE 10,6 1000 LOCATE PX,PY 1490 ATTRB 0,0 > 
540 PRINT “TIEMPO TRANSCURRIDO 1010 PRINT CHRS(127) 1500 RETURN yo 
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B Software/Desarrollo de sistemas WIMP 


La joya de = 
un sistema 


En esta nueva serie 
estudiaremos los sistemas 
WIMP, centrando nuestra 
atención en los “lenguajes 
orientados hacia el objeto” 


Li Ke 


O 
SA 


Al recién iniciado en informitica se le suele intro- 
ducir en el uso de los ordenadores personales me- 
diante programas que se ejecutan, o bien se “car- 
gan”, al poner en marcha la maquina. En el primer 
caso, las maquinas se proporcionan con una version 
de BASIC residente, con lo que a menudo los usua- 
rios ingenuos tienen la impresi6n de que los orde- 
nadores son poco mas que “maquinas de BASIC” en 
la que las instrucciones se entran en modalidad di- 
recta (es decir, sin números de línea de programa). 


A É . Fra Dl po? tè 
Un intérprete de BASIC residente, como el que DO E 
Ay 4 a 

acabamos de describir, puede ofrecer un entorno REA 2 


mas amable que el segundo tipo (el programa de 
sistema), que no es un entorno de lenguaje empa- 
quetado sino que se conoce como el monitor, o sis- 
tema operativo (OS). Ejemplos típicos de sistemas 
operativos estándares son CP/M, MS-DOS, UNIX, 
etcétera. Estos sistemas tienden a ser bastante hos- 
tiles y se remontan a los días en que se esperaba 
que los usuarios de ordenadores fueran expertos en 
los intrincados detalles de su máquina. 

Como sabrán la mayoría de los lectores, las má- 
quinas como el Apple Macintosh han modificado 
de forma radical nuestras expectativas acerca de lo 
que podemos esperar de ellas y especialmente 
nuestra interacción con las mismas. Tales sistemas 
tienden a basarse en el uso de ventanas, iconos y 
ratones, y por este motivo han llegado a conocerse 
como sistemas WIMP (windows, icons and mice). 
La aparición de la tecnología WIMP es apenas un 
aspecto de un campo de investigación que es relati- 
vamente poco conocido (al cual se suele aludir 
como programación orientada hacia el objeto) y el 
trabajo que se está realizando en este campo tiene 
enormes implicaciones de cara al futuro. Es esta 
investigación, y los cambios a los que ha dado 
lugar, lo que examinaremos a lo largo de esta serie. 

El lenguaje más “objetivo” que se ha desarrolla- 
do hasta ahora es, sin lugar a dudas, el SMALLTALK, 
producto de un equipo de investigadores del 
Centro de Investigación de Xerox en Palo Alto 
(PARC). En consecuencia, comenzaremos nuestra 
serie con un análisis de los antecedentes de SMALL- 
TALK y un proyecto asociado con el mismo: el Dy- 
nabook de Alan Kay. 

Quizá resulte extraño que una empresa que ob- 
tiene la mayor parte de sus beneficios a partir del 
papel se mostrara interesada en el concepto de un 
entorno de oficina sin papel: la “oficina electróni- 
ca”. Sin embargo, esto fue efectivamente así en el 
caso de la Xerox Corporation de Estados Unidos a 
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comienzos de los años setenta. Su previsión, al anti- 
ciparse a las futuras tendencias, ha venido a signifi- 
car que Xerox, tal vez en mayor medida que ningu- 
na otra empresa, fuera responsable de los orígenes 
de lo que ahora conocemos como sistemas WIMP. 

Xerox comprendió que con la intensa competen- 
cia de IBM, DEC y otras compañías, su tardía en- 
trada en el campo de la informática sería un serio 
inconveniente a menos que pudiera captar una 
parte del mercado de fabricantes de ordenadores 
bien establecidos. Dieron el arriesgado paso de 
crear el PARC, dando a su equipo de investigado- 
res y técnicos un extenso informe y un gran presu- 
puesto para investigar en el campo de la automati- 
zación de oficinas, la inteligencia artificial (Al). la 
interface a la medida del hombre (MMI) y los siste- 
mas de ordenador en general. 

El punto de partida para el SMALLTALK fue el fu- 
turista Dynabook, o sistema de referencia para 
todos. Este era la invención de Alan Kay, entonces 
estudiante de investigación, quien imaginó una 
época en la que todo el mundo tendría un pequeño 
ordenador autoalimentado (del tamaño aproxima- 
do de un libro) que permitiría a cada usuario el ac- 
ceso dinámico a una enciclopedia completa para 
consulta de conocimientos. 

El Dynabook, portátil y de altas prestaciones, 
tendría una visualización en alta resolución, dispo- 
sitivos de entrada y salida para comunicaciones 
tanto visuales como de audio, y conexiones de 
radio a una red de satélites con una base de datos 
compartida. Lamentablemente, los problemas téc- 
nicos de la miniaturización, el procesamiento masi- 
vo y las fuentes de memoria requeridos para imple- 
mentar la idea de Kay, dieron como resultado la 
dispersión del equipo de investigación Dynabook. 
Sin embargo, muchas de las ideas Dynabook han 
tenido una influencia intensa y duradera en la in- 
vestigación y en el desarrollo, que ahora se han 
abierto camino en las máquinas disponibles actual- 
mente. . 

Uno de los conceptos clave que surgieron duran- 
te las primeras etapas de desarrollo fue el del centro 
de trabajo personal. Hasta entonces la informática 
había significado compartir los recursos de una 
gran instalación central o, más recientemente, va- 
rios miniordenadores. El procesamiento de los 
datos era muy indirecto, con el procesamiento por 
lotes (batch), siendo la norma en grandes sistemas. 

La diferencia más obvia entre este entorno y la 
filosofía PARC fue el tiempo de respuesta. Los sis- 
temas convencionales suponían una espera de los 
resultados que en ocasiones era de varias horas. En 
1972, la inmediatez implícita en el concepto Dyna- 
book era bastante revolucionaria. Además, con- 
ceptos tales como el uso de un dispositivo señalador 
con aspecto de ratón, de iconos y ventanas, signifi- 
có un replanteamiento radical de la forma de comu- 
nicar los datos hacia y desde el procesador central y 
la visualización. Ello condujo a la implementación 
en el firmware de potentes núcleos de gráficos ex- 
clusivos, y también al extraño lenguaje que los in- 
vestigadores del PARC bautizaron como SMALL- 
TALK. 

El núcleo de la investigación en SMALLTALK gira- 


3 ba alrededor de la modelación de un sistema de 


hardware y software completo basado en la comu- 
nicación entre “objetos” con ciertas propiedades 
definidas. 


Todos estamos familiarizados con varios objetos 
distintos que forman parte de cualquier sistema de 
ordenador: el teclado, la VDU y la impresora son 
ejemplos obvios. Cada uno de estos dispositivos de 
hardware posee propiedades fijas, y sólo compren- 
de cómo realizar determinadas tareas. No tiene 
sentido pedirle al teclado que imprima un docu- 
mento, por ejemplo. Cada objeto, a su modo, re- 
tiene una cierta cantidad de datos (información 
sobre sí mismo) y el conocimiento requerido para 
llevar a cabo una limitada cantidad de tareas co- 
rrectamente. La pantalla VDU parece “saber” 
cómo visualizar los datos que se le envían, y ocu- 
parse de sus propias tareas domésticas, tales como 
volver a enviar el cursor al lado izquierdo de la pan- 
talla cuando el texto intenta continuar más allá del 
final de la línea. 

En realidad, este objeto es una compleja red de 
interacción de hardware y software, en parte elec- 
trónica, en parte sistema operativo u otro software. 
Al considerar a cada uno de los componentes de un 
sistema de ordenador como un objeto, y al definir 
sus propiedades y los algoritmos necesarios para 
hacer que se conduzcan correctamente, un ingenie- 
ro de software puede crear un sistema basado en 
una red de objetos que se comuniquen entre sí. En 
vez de la tradicional técnica de lenguaje estructura- 
do de llamar a un procedimiento por su nombre 
para procesar datos (pasándolos como sus paráme- 
tros), los “objetos” de programa se describen según 
ciertas clases o categorías, y contienen los métodos 
para procesar tipos de datos específicos. Éstos se 
suministran como argumentos de un “mensaje”. 
Todo lo que hace el mensaje es pasar los datos y 
decirle al objeto receptor qué método aplicar: al 
que envía el mensaje no le concierne en absoluto 
cómo se lleva a cabo exactamente el método. 

SMALLTALK es la implementación más completa 
del enfoque orientado hacia el objeto, pero requie- 
re grandes recursos de memoria y potencia de pro- 
cesamiento. Más recientemente, ha habido un inte- 
rés considerable por el MODULA-2, en especial en 
Estados Unidos. Este lenguaje europeo es un deri- 
vado del PASCAL y fue diseñado por el creador de 
este lenguaje, el profesor Niklaus Wirth, para pro- 
gramar grandes sistemas en los que un equipo de 
programadores debía poder implementar distintos 
“módulos” de forma independiente (de ahí su nom- 
bre). Los datos, tipos de datos y procedimientos se 
pueden mantener separados en cualquier módulo a 
menos que se “importen” o “exporten” explícita- 
mente para ser utilizados por otros módulos. Esto 
representa una analogía completa con la idea del 
SMALLTALK, con la excepción de que el concepto de 
pasar mensajes y argumentos de datos se sustituye 
por las llamadas a procedimientos y listas de pará- 
metros de estilo PASCAL, más convencionales. Esto 
proporciona una forma simple y segura de construir 
grandes sistemas sin los peligrosos efectos colatera- 
les a los que puede dar lugar el acceso ilimitado a 
todos los objetos del sistema. 

Aunque todavía es muy reciente la aparición de 
máquinas como el Apple Macintosh, los consumi- 
dores ya están dando por sentadas la inmediatez y 
amabilidad de los sistemas operativos WIMP. SMALL- 
TALK fue responsable del nacimiento de tales siste- 
mas, y su implementación tuvo importantes impli- 
caciones en el desarrollo que ha experimentado el 
hardware desde entonces. 
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Una época de diletantismo 
En los siglos xvi y xvii, el ocio y 
el aprendizaje tendían a 
entremezclarse de modo tal que 
en nuestra época de 
especialización podría llegar a 
considerarse carente de toda 
seriedad. Asi, no es 
sorprendente hallar que las 
apuestas y las matemáticas 
estuvieran unidas tan 
frecuentemente. El reverendo 
Bayes, que vemos en la 
ustracion, desarrolló una 
ecuación para el cálculo de 
posibilidades, y otros casi 
contemporáneos suyos 
(incluyendo a D'Alembert, 
Pascal y Fermat) se sintieron 
gualmente atraidos por los 
enigmas.potencialmente 
rentables. de las probabilidades 
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zeera? 


Tras haber analizado en el capítulo anterior la con- 
versión de posibilidades a probabilidades, nos con- 
centraremos ahora en la aplicación de cifras de pro- 
babilidades, que es donde el apostador puede va- 
lerse de la ayuda del micro. 

Usted puede usar su ordenador para calcular las 
probabilidades que representan las posibilidades ci- 
tadas, y los corredores de apuestas pueden utilizar 
esto para elaborar un buen registro de apuestas. 
Pero la mayoría de los micros se utilizan para detec- 
tar ganadores, y la única forma racional de hacerlo 
es evaluar el formulario. El problema es que hay 
demasiada información, lo que implica: 


e Seleccionar qué evidencia es importante. 
e Combinar evidencias desiguales. 


Es aquí donde muestra su valía un teorema de esta- 
dística: la regla de Bayes. El reverendo Bayes era 
un clérigo del s. xvi que produjo esta ecuación: 


P(H!E)=P(E H)XP(H)/P(E) 


que desde el punto de vista de las posibilidades se 
puede expresar asi: 


O(HIE)=O(H)xXLR(HE) 


Éstas pueden parecer complicadas, pero en reali- 
dad son bastante directas. En la primera ecuación, 
P(H E) es la probabilidad condicionada, P, de una 
hipótesis, H, dada (|) alguna evidencia, E. 

El O(H!E) de la segunda ecuación es el mismo 
que el P(H|E). pero expresado como posibilidades 
(a favor). La segunda ecuación se puede leer como: 
las posibilidades de una hipótesis (H) dada una evi- 
dencia (E) son iguales a las posibilidades anteriores 
(antes de conocer E) de esa hipótesis, multiplicadas 
por la razón de probabilidad para esa evidencia. 
Enseguida analizaremos las razones de probabili- 
dad, pero primero simplifiquemos un poco las cosas 
examinando un ejemplo paso a paso. 


Pronósticos en el fútbol 


Partiendo con algunos datos de muestra, suponga- 
mos que usted tiene registros de partidos de fútbol 
ya disputados y desea pronosticar los ganadores lo- 
cales. Hay que destacar dos puntos: primero, cuan- 
do el pronóstico de la prensa deportiva pronostica 
un ganador visitante, es muy raro que el encuentro 
acabe con un triunfo del visitante (aunque podría 
terminar en empate). En segundo lugar, si la posi- 
ción del equipo local (antes del partido) figura 
entre los nueve primeros de la tabla, por lo general 
el partido termina con un triunfo local. Con una 
muestra de 131 partidos, estas observaciones se 
pueden resumir como dos tablas de frecuencia: 
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Prensa pronostica triunfo 
visitante 
Prensa no lo pronostica 


Equipo local entre 
los nueve primeros) 
Equipo local en 9. 
posición O peor 





Ahora podemos utilizar estas dos tablas de frecuen- 
cia para calcular las “razones de probabilidad” que 
mencionábamos antes. Por lo general la razón de 
probabilidad se define del siguiente modo: 


LR(H!E)=P(E|H)/P(E]not-H) 


Para tablas de eventualidades de dos por dos como 
las de arriba, podemos calcular las razones de pro- 
babilidad a partir de una tabla como la siguiente: 





P(E'H)= cantidad de resultados que sustentan re- 
sultados Evidencia/Total a favor de la hipétesis; 
es decir, P(EH)=a/(a+c). De modo similar, 
P(E[H)=b/(b+d). Nuestra razón de probabilidad 
LR (H|E)=a/(a+c)/b/((b+d), con un poco de mala- 
barismo se convierte en: 

LR(H!E)=(a X (b+d)/b X (a+c)) 


Para nuestras dos tablas los resultados son éstos: 


Fon 
只 € a 
Prensa Se 
triunfo visitante 
Prensa no pronostica 
triunfo visitante 


Equipo local entre 
los nueve primeros 
Equipo local en 9." 
posición o peor 


1,3384 
0,8032 


La informatica en los juegos de apuestas/Aplicaciones 


Para quienes prefieren las palabras a los nimeros, 
el último par de números está diciendo que si usted 
sabe que el equipo local está entre los nueve prime- 
ros clasificados de su tabla, las posibilidades a favor 
de que gane son 1,3384 veces de lo que serían si 
usted no supiera ese hecho. Pero si el puesto que 
ocupa en la tabla es el décimo u otro inferior, las 
posibilidades son sólo 0,8032 veces de lo que ha- 
brían sido a favor de un ganador local. 

Para ver cómo se utilizan estas razones, vamos a 
suponer que la primera evidencia es falsa (Pronósti- 
co <> Visitante) y que la segunda es verdadera 
(Poslocal <10). Comenzamos con las anteriores 
posibilidades a favor del local, que, dado que hay 
63 locales y 68 no locales (empates o visitantes), es 
63/68 = 0,9265. Esto corresponde a una probabili- 
dad de 0,4809. 

A continuación, multiplicamos las razones de 
probabilidad adecuadas. La primera evidencia era 
falsa, de modo que usamos 1,4392, y la segunda era 
verdadera, por lo que usamos 1.3384. Por tanto: 


=(),9265Xx 1,4392x 1.3384 
=1.7846 


Posib. ulteriores 


Podemos volver a convertir a probabilidades con 
nuestra fórmula P=F(I+F), de modo que: 


=1.7846/2.7846 
=().6409 


Prob. ulteriores 


Esta cifra dice que hay alrededor de un 64 % de 
posibilidades de un triunfo local, dado que el pro- 
nóstico del diario no es un visitante y que el equipo 
local está situado en el puesto noveno (o uno 
mejor) de la tabla. Ambas evidencias eran favora- 
bles, y hemos elevado las probabilidades anteriores 
desde un 48 % a un 64 %. Si un corredor ofrece 6 a 
4 o más, vale la pena aceptar la apuesta (pero debi- 
do al impuesto sobre las apuestas, usted aquí no 
puede permitirse aceptar menos que a la par). 

La ventaja de la regla de Bayes es que proporcio- 
na una base racional para sopesar y combinar dis- 
tintas evidencias. También es fácil de calcular: una 
vez que tiene las razones de probabilidad, sólo es 
cuestión de multiplicar. Además, dado que el resul- 
tado es en posibilidades, que se pueden convertir 
fácilmente a probabilidades, la regla hace muy sim- 
ple ver si una apuesta es una buena inversión (a 
diferencia de otros sistemas que producen “núme- 
ros mágicos” o estimaciones de fortaleza). 

La trampa es que el método que vemos aquí pro- 
bablemente producirá estimaciones exageradas si 
las evidencias están correlacionadas. Si el experto 
del diario, por ejemplo, toma en cuenta la posición 
en la tabla para hacer su pronóstico (como es muy 
probable) entonces las dos evidencias no son autén- 
ticamente independientes. Al multiplicarlas. las es- 
tamos tratando como si lo fueran. 

Así y todo, la regla de Bayes es muy recomenda- 
ble como hilo para coser entre sí diversos indicado- 
res de un programa de pronósticos. Si usted escribe 
un programa bayesiano de pronósticos, la mejor 
forma de minimizar el problema de la evidencia co- 
rrelacionada es probar uno por uno los nuevos 
datos, y añadir uno nuevo sólo si mejora el rendi- 
miento global del sistema. Si al incluir una variable 
plausible ésta hace que el sistema funcione menos 
bien, es probable que, en efecto, usted esté midien- 
do dos veces la misma cosa. 





La comprobación de los métodos que emplee en 
una muestra de datos pasados constituye el corazón 
del enfoque científico a las apuestas. Lamentable- 
mente. esto implica cierto trabajo preliminar. que 
la mayoría de la gente tiende a saltarse. prefirien- 
do, en cambio, basarse en la fe ciega. Un poco de 
sentido común, junto con ciertos principios estadís- 
ticos básicos, pueden ayudarlo a inclinar las posibi- 
lidades a su favor. El ordenador puede ser de 
ayuda en este proceso; pero una cosa que no puede 
darle es moderación. Esta es esencial si ha de man- 
tenerse fiel a sus planes. para enfocar la cuestión 
científicamente y no apostar hasta estar seguro y 
preparado. 


Interesante bibliografía 


He aquí tres obras relacionadas con las apuestas y 

la informática. Winning at the races using your 

| computer (Ganar a las carreras utilizando su 

ordenador), de Paul Worden, ha sido editada por 

| Interface Publications. Las dos obras de Frank 

| George, Horse racing with the Commodore 64 

| (Carreras de caballos con el C64) y Football pools 

| With the Commodore 64 (Quinielas con el C64) son 
ediciones Collins 
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RESTORE 9920: FOR 
e=1 TO t(t,n, 4): READ 
h: NEXT e: GOSUB h 










4570 







RESTORE 9930: FOR 
e=1 TO t(t,n,3): READ 
h: NEXTe: h: 





RETURN 
5470 RESTORE 9910: FOR 
e=1 TO (t(t,n,1)+1: 
READ h: e: 


GOTO h 
9910 DATA 5480,5490, 
5500,5520,5530 










BBC Micro: 
4350 v=RND(a): RETURN 










Commodore 64: 
Suprimir de la línea 7000 en 
adelante e introducir las 
siguientes 
190 DIM t(5,40,4), k(3,30), 
c(35), s(6), n(6), 
23) 

n=1 TO 23: READ 
n): NEXT n 
y n,4)): 






310 
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BUNCH- BREWERS 





He aquí el listado completo de nuestro progra- 
ma de jes interactivos, que se ejecuta- 
rá sin modificación alguna en la gama de orde- 
nadores Amstrad. También incluimos comple- 
mentos para las máquinas BBC Micro, Spec- 
trum y Commodore 64 





Este listado completo incorpora los restantes árbo- 
les de decisión que cubren la conciencia de objetos, 
la actividad general y la interacción de los perso- 
najes. El listado está impreso en dos colores: las 
líneas impresas en negro ya se han publicado, las 
líneas en verde son las nuevas adiciones. 

Hay uno o dos casos de líneas que, habiendo sido 
publicadas anteriormente, se han modificado para 
dar cabida a nuestros árboles nuevos; estas líneas 
están impresas en color rojo. 

Cuando ejecute (RUN) el programa, puede entrar 
el editor de caracteres en cualquier momento pul- 
sando la tecla cero. De lo contrario, pulsando uno, 
dos o tres se trasladará al jugador a la sala de tertu- 
lia, al salón y a la cocina, respectivamente. 


Listado del “Dog and Bucket” 





10 REM *bienvenido al Dog an Bucket* 
20 REM 


40 REM 

45 GOSUB 4030: REM limpia la pantalla 
50 DIM 1$(3,5),b$(12,4),cS(7,11),ds(11) 
60 r=1 


Kevin Jones 





70 PRINT “Valores por defecto (s/n)?": GOSUB 
4110: IFiS="s” OR i$=“S” GOTO 90 
80 GOSUB 2350:GOTO 100 
90 FOR n=1 TO 7: READ cS(n,1): FOR d=2 TO 11: 
READ cS(n,d): NEXT d: NEXT n 
100 FOR n=1 TO 3: READ IS(n, 1): FOR e=2 TO 5: READ 
IS(n,e): NEXT e: NEXT n 
110 FOR n=1 TO 12: READ b$(n,1): FORe=2T0 4: 
READ b$(n,d): NEXT d: NEXT n 
120 FOR n=2 TO 11: READ d$(n): NEXT n 
130 DEF FNb(y,z)=VAL(bS(y,z)) 
140 DEF FNc(y,z) =VAL(cS(y,z)) 
150 DEF FNmS(cS,d) =STRS((VAL(CS))—d) 
160 DEF FNiS=bS(VAL(c$(c,3)),1) 
180 REM prepara arboles 
190 DIM t(5,40,4),k(3,30),c(35),s(6),h(6):2=0 
200 REM arbol objetos 
210 FOR n=1 TO 21: REM 21 nudos elección 
220 READ k(1,n),t(1,n,2),t(1,n,1): NEXT n 
230 REM arbol trama 
240 FOR n=1 TO 22: FOR s=1 TO 4: READ t(2,n,s): 
NEXT s: READ a$: NEXT n 
250 REM arbol interaccion personajes 
260 FOR n=1 TO 22:FOR s=1 TO 4: READ t(3,n,s): 
NEXT s: READ a$: NEXT n 
270 REM arbol actividad general 
280 FOR n=1 TO 39: FOR s=1 TO 4: READ t(4,n,s): 
NEXT s: READ aS: NEXT n 
290 REM arbol conciencia objeto 
300 FOR n=1 TO 13: FOR s=1 TO 4: READ t(5,n,s): 
NEXT s: READ a$: NEXT n 
500 REM 
510 REM prueba bucle programa 
520 REM 
530 GOSUB 2100: GOSUB 2150: GOSUB 2240: PRINT: 
PRINT: GOSUB 1000: GOTO 530 
1000 REM 
1010 REM manipulador personajes 
1020 REM 
1030 REM comprobar si se ha pulsado tecla 
1040 GOSUB 4260: IF i§<> “” THEN GOSUB 2040: 
RETURN 
1050 REM procesar cada personaje uno por uno 
1060 FOR c=1 TO 6: IF cS(c,9)="7" THEN 
cS(c,9)=“o0" 
1070 IF z=c THEN GOTO 1500 
1080 IF FNc(c, 10)» 0 THEN 
c$(c,10)=FNm$(c$(c, 10), 1):GOTO 1500 


1090 REM bandera=0 de modo que 
restablecer bandera y procesar 


personaje 

1100 RESTORE: FOR n=1 TO c*10+c-1: 
READ c$(c, 10): NEXT n 

1110 IF FNc(c, 10)=0 THEN GOTO 1500: 
REM valor defecto=0 de modo que no 
procesar 

1120 REM comprueba bandera mover 

1130 IF FNc(c,11)> OTHEN c$(c,11)= 

FNm$(c$(c, 11), 1):GOTO 1190 

REM mover bandera=0 de modo 

que poner a cero bandera y trasladar 

personaje 

1150 RESTORE: FOR n=1 TO c*11: READ 
c$(c,11): NEXT n 

1160 IF cS$(c,11)=“O” THEN GOTO 1180 

1170 GOSUB 2840: GOTO 1500 

1180 REM recorrer los arboles 


1140 


1190 GOSUB 2400: REM inicializar 
condiciones 

1200 FOR t=2 TO 5: GOSUB 2430: GOSUB 
5460: NEXT t 

1210 IF FNc(c,4)» 0 THEN GOSUB 5000: 
REM arbol manipulacion objetos 

1500 NEXT c: GOTO 1030: REM hacer 
siguiente personaje — cuando todos 
terminados, comprobar pulsación 
tecla/hacerlo otra vez 





2000 REM 

2010 REM rutina entrada 

2020 REM 

2030 GOSUB 4110 

2040 IF (ASC(¡S)< 48) OR (ASC(i$)» 51) 
THEN RETURN 

2050 IFiS="0" THEN GOSUB 2320: 
RETURN 

2060 r=VAL(¡$): cS(7,2)=i$: RETURN 

2070 REM 

2080 REM impresion escenario 

2090 REM 

2100 PRINT IS(r,1) 

2110 RETURN 

2120 REM 

2130 REM imprimir objetos visibles 

2140 REM 

2150 PRINT “Ves: ”; 

2160 p=0: FOR b=1TO 12: IF 
VAL(b$(b,2))«»r GOTO 2190 

2170 p=p+1:1Fp>1 THEN PRINT “, ”; 

2180 PRINT b$(b,1); 

2190 NEXT b 

2200 IF p=0 THEN PRINT “nada”; 

2210 PRINT: RETURN 

2220 REM 

2230 REM imprime personajes visibles 

2240 REM 

2250 p=0: FOR c=1 TO 6: IF 
VAL(c$(c,2))<> r GOTO 2290 

2260 p=p+1: IF p=1 THEN PRINT “Estas 
en compañia de: ";: GOTO 2280 

2270 PRINT “, ”; 

2280 PRINT c$(c,1); 

2290 NEXT c 

2300 IF p=0 THEN PRINT “Aqui no hay 
nadie”. 

2310 RETURN 

2320 REM 

2330 REM subrutina inicializar personajes 

2340 REM 

2350 PRINT: h=c: RESTORE: FOR c=1 TO 
7: READ c$(c, 1): GOSUB 4070: PRINT 
c$ (c,1);"— ";: PRINT “Establecer este 
personaje?”: GOSUB 4110 

2360 IF (i$ <> “s”) and (IS<>"S”) THEN 
FOR n=2 TO 11: READ n$: NEXT n: 
GOTO 2390 

2370 FOR d=2 TO 11: READ s$: PRINT 
d$(d);: INPUT i$: IF i$««»"” THEN c$ 
(c,d)=i$ 

2380 NEXT d 

2390 NEXT c: c=h: RETURN 

2400 REM 

2410 REM condiciones 

2420 REM 


2430 h=FNc(c,8): i=FNc(c,3) :j=FNc(c,6): 


c(1)=ABS(i> 0): c(2) = ABS((FNb(j,2) 


= FNc(c,2)) AND (q=1)): c(3) = 
ABS(b$(i,3) = “s”): c(4)=ABS(i=j: 
c(5) = ABS(b$(i,4)= “s”) 

2440 c(6) = ABS(i=3): c(7) = 
ABS(FNc(c,5)» 5): c(8) = 
ABS(FNc(c, 5)» 2): c(9) = 
ABS(VAL(c$(c,9)) = 1): c(10) = 
ABS(FNc(x, 3) = 0):c(11)=ABS(FNc) 
(h,2) = FNc(c,2)): c(12) = 255 

2450 c(13) = ABS(z = c): c(14) = 
ABS(g=0): c(15) = ABS(z = 0): c(16) 
= ABS(s(c)=255): c(17) = 
ABS(FNc(z,2)=FNc(c,2)): c(18) = 
ABS(h(c) = 255): c(19) = ABS(i = 2) 

2460 c(20) = ABS(FNc(x,4)<0): 
c(21)=ABS(z = x): c(22) = 
ABS(FNc(x, 3) = FNc(c,6)): c(23) = 
ABS(FNc(x,5)>15): c(24) = 
ABS(FNc(x,9)=7): c(25) = 
ABS(FNc(c,5)>15): c(26) = 
ABS(FNc(c,5)>17) 

2470 c(27) = FNc(c,9): c(28) = 
ABS(FNc(c,2) = r): c(29) = 
ABS(FNc(c,2) = 1): 
C(30)=ABS(FNc(c,5)« 5) 

2500 RETURN 

2510 REM 

2520 REM comprueba escenario en busca 
objetos 

2530 REM 

2540 f=0: REM establecer a cero ‘bandera 
hallado’ 

2550 FOR b=1 TO 12 

2560 IF FNb(b,2)=FNc(c,2) THEN 

=1:b=12 

2570 NEXT b 

2580 IF f=1 THEN n=3: GOTO 2600 

2590 n=39 

2600 RETURN 

2610 REM 

2620 REM comprueba presencia del 


propietario del objeto: si esta presente, 


establece x al numero del personaje: 
salta al arbol 

2630 REM 

2640 f=0:x=0 

2650 FOR m=1 TO 6 

2660 IF (FNc(m,2)=FNc(c,2)) AND 
(FNc(m,6) =FNc(c,3)) THEN f=1: 
x=m: GOSUB 2430: m=6 

2670 NEXT m 

2680 IFf=1 THEN n= 15: GOTO 2700 

2690 n=39 

2700 RETURN 

2710 REM 

2720 REM selecciona objeto al azar en 
escenario del personaje 

2730 REM 

2740 b=0 

2750 FOR s=1 TO 12 

2760 IF FNb(s,2)«» FNc(c,2) THEN GOTO 
2780 


2770 GOSUB 4180: IF q=1 THEN b=s: 
s=12 

2780 NEXT s 

2790 IF b=0 THEN GOTO 2750 

2800 RETURN 

2810 REM 

2820 REM desplaza un personaje 

2830 REM 


2840 IF FNc(c,4)«1 THEN RETURN: REM 
demasiado debil para moverse 

2850 y=0: f=0: FOR w=2T0 5: IF 
ri THEN GOTO 
291 


2860 GOSUB 4180: IF q=1 THEN f=1: 
c$(c,9)="7": GOTO 2880 

2870 GOTO 2910 

2880 IF FNc(c,2)=r THEN PRINT c$(c, 1);" 
Sale de la habitacion...”;: y=1 

2890 cS(c,2)=18(VAL(cS(c,2)),w): w=5: IF 
FNc(c,2)=r THEN PRINT c$(c, 1);" 
entra en la habitacion...”;: y=1 

2900 IF y=1 THEN y=c: GOSUB 2250: 
c=y:PRINT: PRINT: REM actualiza 
mensaje personajes presentes 

2910 NEXT w: IF f=0 GOTO 2850 

2920 RETURN 


3000 REM 

3010 REM tabla de accion 

3020 REM 

3030 FOR n=1 TO 3: GOSUB 4090: NEXT 
n:m$=c$(c,1)+" vuelve a mirar el 
cuerpo y de pronto comprende la 
espantosa verdad. " + CHR$(34)+ “La 
empanada está elaborada con alimento 
para gatos” +CHR$(34) + 
* ”: GOSUB 4630 

3040 GOSUB 4390: m$=mS$+ “grita, y en 
una loca carrera las personas reunidas 
se arremolinan sobre la barra y atacan a 
Fred el barman, quien les suplica en 
vano que tengan piedad de su 
miserable vida.”: GOSUB 4630: GOSUB 
4720 


3050 FOR n=1 TO 2000: NEXT n:GOSUB 
4720: m$="...y al dia siguiente a Fred 
el barman no se le ve por ninguna 
parte. No obstante, hay muchisimas 
empanadas de extraña forma para 
alimentar a la siempre famelica clientela 
del Dog and Bucket...”: GOSUB 4630: 
GOSUB 4720: END 

3060 h(c)=255: GOSUB 4680: 
m$=c$(c, 1)+ m$: GOSUB 4630: 
GOSUB 4720: RETURN 

3070 z=c: GOSUB 4680: n$=c$(c,1)+m$: 
GOSUB 4300: mS=n$+m$+ 
“estomago, e inmediatamente muere. 
Los otros personajes estan demasiado 
concentrados en sus bebidas como 
para darse cuenta...”: GOSUB 4630: 
GOSUB 4720: g=0: c$(c,4)="-1”: 
RETURN 

3080 c$(c,4)="10": g=0:1F t(t,n,4)>0 
THEN GOSUB 4680: m$=cS(c,1)+mS: 
GOSUB 4630: GOSUB 4720 

3090 RETURN 

3100 a=20: GOSUB 4350:1F v<> 5 THEN 
RETURN 

3110 GOSUB 4680: GOSUB 4630: GOSUB 
4720: RETURN 

3120 a=2: GOSUB 4350: IF v<> 0 THEN 
RETURN 

3130 m$=c$(c,1)+ “intenta 
reanimar” +cS(x,1)+ “sin 
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conseguirlo...”: GOSUB 4630: GOSUB 
4720: RETURN 
3140 GOSUB 4680: m$ = CHR$(34) 
+mS+CHR$(34)+" dice” +c$(c,1)+* 
a” +c$(x,1): GOSUB 4630: GOSUB 
4720: RETURN 
3150 GOSUB 4680: m$=CHRS(34) 
+m$+CHRS(34)+ “, "+c$(c,1)+" 
pregunta” +c$(x, 1): GOSUB 4630: 
GOSUB 4720: RETURN 
3160 GOSUB 4680: mS=cS(c,1)+" y 
"+c$(x,1)+m$:GOSUB 4630: GOSUB 
4720: c$(c,5)= “10”: RETURN 
3170 GOSUB 4680: m$ = 
CHRS(34)+m$+CHRS(34) + 
«“dice"+c$(c,1)+ “a ”+c$ 
(x,1):GOSUB 4630: GOSUB 4720: 
RETURN 
3180 GOSUB 4680: m$=cS(c, 1)+ms: 
GOSUB 4630: GOSUB 4720: 
c$(c,5)+ “5”: RETURN 
3190 GOSUB 4680: m$=c$(c, 1)+ms: 
GOSUB 4630: GOSUB 4720: RETURN 
3200 GOSUB 4680: m$ = CHR$(34) 
+m$+CHR$(34)+* dice”+c$(c, 1)+”" 
afligi- 
damente...”: GOSUB 4630: GOSUB 
4720: c$(c,5)= “10”: RETURN 
3210 GOSUB 4680: m$=CHRS(34) 
+mM$+CHRS(34)+" dice " +c$(c,1): 
GOSUB 4630: GOSUB 4720: c$ 
(c,9)="3": RETURN 
3220 x=FNc(c,8): mS=c$(c,1)+" y” 
+c$(x,1)+ “ estan enfrascados en una 
conversacion.”:GOSUB 4630: GOSUB 
4720: x=0: RETURN 
3230 x=FNc(c,3): IF x>0 THEN GOSUB 
4680: m$=c$(c,1)+ “examina 
ebriamente "+ b$(x,1)+ m$: GOSUB 
4630: GOSUB 4720: GOSUB 4220: x=0 
3235 RETURN 
3240 GOSUB 4680: m$ = CHR$(34) 
+mS+CHR$(34)+" se 
queja” +c$(c,1): c$(c,5)="4”: GOSUB 
4630: GOSUB 4720: GOSUB 4220: 
RETURN 
3250 GOSUB 4680: m$ = 
CHR$(34) +mS+CHR$(34) + “grita 
"+ c$(c,1)+*", mirando la “: GOSUB 
4630: IF FNc(c,3)=3 THEN 
m$= “empanada.”: GOSUB 4630: 
GOSUB 4720: GOSUB 4220: RETURN 
3260 m$= “bocadillo.”: GOSUB 4630: 
GOSUB 4720: GOSUB 4220: RETURN 
3270 GOSUB 4680: m$=cS(c,1)+ms: 
GOSUB 4630: GOSUB 4630: 
m$= “bebida”: GOSUB 4630: GOSUB 


4720: RETURN 
3900 REM 


3910 REM gosub tabla 

3920 REM 

3930 s(c)=255: m$=c$(c,1)+" se arrodilla 
junto al cuerpo postrado de ” + 
c$(z,1)+*. La horrible verdad toma 
cuerpo lentamente, pero los demas 
parecen estar demasiado borrachos 
como para prestarle ninguna atencion 
inmediata...”: GOSUB 4630: GOSUB 
4720: RETURN 

3940 f=0: x=0: FOR y=1 T06 

3950 IFy=c THEN GOTO 3970 

3960 IF FNc(y,2)=FNc(c,2) THEN f=1: 
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GOSUB 4180:IF q=1 THEN x=y: 
GOSUB 2430: y=6 

3970 NEXT y: IFf=0 THEN t(3,1,4)=2: 
RETURN 

3980 IF x=0 THEN GOTO 3940 

3990 RETURN 

3995 cs(c,5)=FNmS(cS(c,5),1): 
RETURN 


4660 REM selecciona un mensaje de la 
sentencia data 

4670 REM 

4680 RESTORE 7030: FOR m=1 TO t(t,n,4): 
READ m$: NEXT m:RETURN 

4690 REM 

4700 REM imprime una linea en blanco 

4710 REM 

4720 IF FNc(c,2)=r THEN PRINT: PRINT 

4730 RETURN 





4000 REM 

4010 REM subrutinas del sistema de bajo 
nivel 

4020 REM 

4030 REM limpia la pantalla 

4040 REM 

4050 CLS: RETURN 

4060 REM 

4070 REM beep 

4080 REM 

4090 PRINT CHRS(7);: RETURN 

4100 REM 

4110 REM tomar un caracter del teclado 

4120 REM 

4130 ¡S=INKEYS: IFiS="" GOTO 4130 

4140 RETURN 

4150 REM 

4160 REM rutina numero aleatorio 

4170 REM 

4180 q=INT(RND(1)*2)+1: RETURN 

4190 REM 

4200 REM poner a cero codigos personajes 

4210 REM 

4220 E 8)="0”: cS(c,9)= “0”: RETURN 

4230 R 

4240 REM comprobar si tecla pulsada 

4250 REM 

4260 ¡S=INKEYS: RETURN 

4320 REM 

4330 REM rutina numero aleatorio variable 

4340 REM 

4350 v=INT(RND(2)*a): RETURN 

4360 REM 


4370 REM imprimir el/ella 

4380 REM 

4390 IF c$(c,7)="m"” THEN m$= “ella ”: 
RETURN 

4400 m$= “él”: RETURN 

4500 REM 

4510 REM bloque de saltos 

4520 REM 

4530 REM nudos reentrantes 

4540 ON t(t,n,4) GOSUB 3930,3940,3995 

4550 RETURN 

4560 REM nudos de accion 


4570 ON t(t,n,3) GOSUB 3030, 3060, 3070, 
3080, 3100, 3120, 3140, 3150, 3160, 
3170, 3180, 3190, 3200, 3210, 3220, 


3230, 3240, 3250, 3270: RETURN 
4600 REM 
4610 REM imprimir mensajes si el jugador 
esta presente 
4620 REM 
4630 IF FNc(c,2)=r THEN PRINT m$; 
4640 m$=""”: RETURN 
4650 REM 


5000 REM rutinas arbol objetos 

5010 p=0: REM poner a cero bandera 
imprimir 

5020 IF FNc(c,2)=r THEN p=1 

5030 n=1: REM empezar en el nudo 1 

5040 IF n» 21 GOTO 5070 

5050 k=c(k(1,n))+1: IF k(1,n)=12 THEN 
GOSUB 4180: k=q 

5060 n=t(1,n,k): GOTO 5040 

5070 IFn»=24 GOTO 5090 

5080 ON (n—21) GOSUB 2540,2640: GOTO 
5040 


5090 ON (n—23) GOTO 
5100,5130,5160,5180, 
5210,5240,5260,5270,5280,5300, 
5310,5330,5340,5360,5370,5430 

5100 GOSUB 2740: cS(c,3)=STRS(b) 

5110 IF p=1 THEN PRINT c$(c, 1);" 
recoge” ;b$(b,1): PRINT 

5120 bS(b,2)="0": c$(c,9)="4”: RETURN 

5130 cS(c,3)=cS(c,6) 

5140 IF p=1 THEN PRINT c$(c, 1);" 
recoge”;FNiS: PRINT 

5150 bDS(VAL(c$(c,3)),2)=“o”: 
c$(c,9)= “4”: RETURN 

5160 IF p=1 THEN PRINT c$(c, 1);" bebe un 
sorbo de”;FNiS: PRINT 

5170 cS(c,4)=FNm$(cS(c,4), — 1): RETURN 

5180 GOSUB 4180: IF (p=1) AND (q=1) 
THEN PRINT c$(c, 1);" se esta 
comiendo el bocadillo.”: PRINT 

5190 cS(c,4)=FNmS$(cS(c,4), —2):c$ 
(c,9)="6": GOSUB 4180: IF q= 
1 THEN GOSUB 4220 

5200 RETURN 

5210 IF p=1 THEN PRINT c$(c,1);" muerde 
un bocado de la empanada, gruñe y la 
tira al suelo.”: PRINT 

5220 g=c:REM establece bandera empanada 
comida 

5230 c$(c,3)="0”: 
cS(c,4)=FNm$(cS(c, 4), 10): 
b$(3,2)=cS$(c,2): RETURN 

5240 IF p=1 THEN PRINT c$(c, 1);" 
deja” ;FNiS: PRINT 

5250 bS(VAL(cS(c,3)), e “a 2): 
cS(c,3)= “0”: RET 

5260 c$(c,5)= ASES! 5. —1): RETURN 

5270 GOSUB 5240: RETURN 

5280 IF p=1 THEN PRINT c$(c, 1);" 
tira” ;bS(VAL(cS(c,3)), 1);" a ”;c$ (x, 1): 
PRINT 


5290 cS(x,4)=FNmS(x,4), 1): 
bS(VAL(c$(c,3)),2)=c$(c,2): 


c$(x,8) =STRS(c): cS(x,9)= “5”: 
c$(c,3)= “0”: RETURN 

5300 GOSUB 4220: RETURN 

5310 IF p=1 THEN PRINT “Creo que tengo 


tu bebida, dice ";c$(c,1);" a ";cS(x, 1): 


PRINT 
5320 cS(c,8)=STRS(x): cS(c,9)= “2”: 
RETURN 


5330 c$(c,4)=FNmS(c$(c,4),2): RETURN 

5340 IF p= 1 THEN PRINT c$(c, 1);*“le da 
":FNIS;* a ”;c$(x,1): PRINT 

5350 cs(x 3)=c$(c,3): c$(c,3)="0": 
cS(c,8)=STRS(c): c$(c,9)="1”: 
RETURN 


5360 GOSUB 4220: RETURN 

5370 IF p=0 GOTO 5420 

5380 IF p=1 THEN PRINT c$(c, 1);" con voz 
ebria le agradece " ;cS(VAL(c$ 
(c,8)), 1)" que le haya devuelto su 
bebida ”; 

5430 RETURN 

5440 REM 

5450 REM clasifica arboles 

5460 n=1 

5470 ON (t(t,n,1)+1) GOTO 
5480 


5520,5530,5540,5550 

5480 k=c(t(t,n,2))+1: n=t(t,n,2+ k): 
GOTO 5470 

5490 GOSUB 4530: n=t(t,n,3): GOTO 5470 

5500 GOSUB 4570 

5510 RETURN 

5520 GOSUB 4680: GOSUB 4630: GOSUB 
4720 


5530 RETURN 

5540 a=t(t,n,4): GOSUB 4350: 
n=t(t,n,3)+v: GOTO 5470 

5550 k=c(t(t,n,2)): n=t(t,n,3)+k: GOTO 
5470 


6000 REM 

6010 REM datos personajes 

6020 REM 

6030 DATA “Luis Cubas”, “2”, “7”, “10”, 
的 
“Lola Fiestas”, “1”, “8”, “30”, “10”, 
“8”, “m” El “Pepe 
Viñas”, “1”, “9”, “8”, “10”, “9” 
“y”, “0”, “0”, “1”, “6”, “Mari 
Tapas”, “2”, “0”, “20”, “10”, “10”, 


“m”, “0”, “On, “4” “5” 
6040 DATA “Javi Salado”, e [lache [Je 


“05. “11”, “y”, “0”, WO. 1,16. 
“Gina Fizz”, “1”, et Ou ki ap 
“12”, “m” “on ton “nu 5” “tu”, 


Wa “0”. “255"， cagon “or, “y 


6060 REM datos escenarios 

6070 REM 

6080 DATA “estas en la sala de tertulia del 
Dog and Bucket. En un rincón hay un 
grupo de dudosos personajes jugando 
al domino. Detras del mostrador esta 


Fred el barman, con su habitual talante 
festivo. Hay salidas al este.“, “0”, “0”, 
e” E «pr 

6090 DATA “He aqui el salon del Dog and 
Bucket, al cual le vendría muy bien una 
redecoración completa. El suelo parece 
haber sido regado regularmente con 
TARY Hay puertas al oeste y al sur. ”, 

6100 DATA ¡Aj! Esta es la cocina, donde se 
preparan las famosas empanadas de 
carne del Dog and Bucket, para una 
clientela siempre famelica. Puedes 
observar algunas latas vacias de 
alimento para gatos, lo cual no deja de 
ser extraño, ya que no rl ningun 
gato.”,“2",“0”,“0”, 

6110 REM 

6120 kot datos objetos (para b$(12,4)) 

6130 R 

6140 DATA un vaso de cerveza”, “2”, “n”, 

“s", * una lata vacia de alimento para 

gatos”, “3”, “n”, “n”, “ una 
empanada de carne Dog and Bucket”, 


Ms NA, “una banqueta de bar”, 
“2”, “n”, “n”, “un cenicero”, “1”, 
“q pr 


6150 DATA * un bocadillo de jamon rancio”, 
“2”,“s”, “n”, “ una pinta de cerveza 


amarga”. .0"， “n”, “s”, “ una crema 
de menta”, “O”, “n”, “s”, “un whisky 
consoda”,“0”, “n”, “s”, “ un vodka 
puro”, “2”, “n”, “s”, “ una pinta de 


cerveza añeja”, “0”, “n”, “s”, “ una 
ginebra con ginger ale”, “0”, “n”, “s” 
6160 REM 
6170 REM datos atributos personajes (para 
as(11)) 
6180 REM 
6190 DATA “Escenario”, “Fortaleza”, 
“Inventario”, “Humor”, “Objeto 
propio”, “Sexo”, “Ultimo pers (Ich)”, 
“Codigo ultima instruccion (lcd)”, 
“Frecuencia de manipulación”, 
“Frecuencia de movimiento” 
REM 


6210 REM datos arbol objetos 
REM 


6230 DATA 1,2,22,12,5,4,2,7,6,3,9,8,4,11, 
10,12,39,24,12,6,25,5,12,39, 
6,13,27,12, 23,29,12,30,14, 12,26, 
39,12,28,39,12,31, 17,7,18, 
16,8,39,19,9,21, 
39,10,36,20,12,33,32,12, 
35,34,11,38,37 

6240 REM 

6250 REM datos arbol trama 

6260 REM 

6270 DATA 0,13,2,22,* ",0,14,5,3," 
",0,15,21,4,” “,5,0,18,3,” 
“,0,16,6,7,” “,0,17,7,11,” 
“,0,18,9,8,” “,0,17,12,13,”, 
“0,19,10,17,” “,5,0,14,3,” 


",4,0,0,0,"” 

6300 REM arbol interaccion 

6320 DATA 1,0,3,2,” O 
“,0,20,6,4," “,0,21,7,5," “,4,0,0,0,” 
”.5,0,8:3.” “ 2,0,6,0,” “0,22,11,14,” 
0.23,12, 17." ",0:24,13:18.” 


“,4,0,0,0,” “,4,0,0,0,” “,4,0,0,0,” 
“,5,0,15,2," ",4,0,0,0,” “,2,0,7,5,” 
EA 


“,2,0,8,6,” “.2,0,9,7," * ,2,0,10,8,” 


6340 REM arbol actividad general 

6350 DATA 5,0,2,5,” *,0,26,11,7," 
“,6,27,24,7," “,0,28,8,12,” 

,0,29,9,15,” “,5,0,21,3,” 

,2,0,11,9," ",4,0,0,0,” “,4,0,0,0,” 

00.0. “,0,30,10,18,” 

2 "20,1210, "4.0.0.0." 

e 00,11, 

2 vv 


at 


bè z Q,*,* z z z 
Nr wn 
apps 


29999 


, 


18,” “,4,0,0,0,” 


5,0,38,2 
6370 DATA 4,0,0,0,” “,2,0,15,0," 

16, 

17,19,” “,4,0,0,0,” 


“4,0,0,0.” ".2.0, 
2D 1020.” 
6380 REM arbol conciencia objeto 


“,4,0,0,0," “4,0,0,0,” “,4,0,0,0,” 
“AOU.” "201421. “1093,” 
“,5,0,10,4,” “,2,0,19,22,” 
“2,0,14,23,” “,4,0,0,0,” “,4,0,0,0,” 


7000 REM 

7010 REM datos mensajes 

7020 REM 

7030 DATA “Un extraño color invade el 
aire... ¿podria ser el aroma de Catty-Kit 
A La Carte? “,” de pronto se desploma 
sobre el suelo apretandose el estomago 
”, * parece muy enfermo, y advierte a 
los demas que no toquen la 
empanada.” 

7040 DATA “ examina atentamente la lata, y 
su semblante adquiere un aire 
pensativo. “,” ¿Que estas haciendo 
con mi bebida? “ ” ¿Donde has 
estado?” 

7050 DATA “, en un arrebato propio de 
borrachos, saltan sobre la mesa y se 
ponen a bailar.” 

7060 DATA “Pareces alegre”, “trepa a gatas 
Pr la barra, intenta bailar y vuelve a 


7070 DATA" , con el estupor de la 
borrachera, de pronto levanta la vista, 
se asoma por la pantalla de la VDU y te 
mira ati...” “Fred el barman sirve otra 
pinta...” “Fred 
esta ocupado lavando vasos” 

7080 DATA “Es una vida de perros...” 

, No he venido a enterrar a 
Cesar...” “Deja que te cuente la 
historia de mi vida...” “Barman, 
lleneme la copa!” 

7090 DATA “Hola a todos...”," como si 
ocultara el secreto de la vida.”, “Para 
que has hecho eso!!” "Creo que me 
voy a poner enfermo!” 

7100 DATA “Ahh...Este trago esta 
Sublime...”,“ busca 
desesperadamente”, * ¿Quien tiene mi 
bebida?” 
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Cambio de tecla 





Estudiaremos las distintas maneras de realizar cambios en el 
teclado del Amstrad desde su sistema operativo 





El sistema operativo del Amstrad tiene una sec- 
ción, denominada gestor de teclas, que controla 
todos los accesos al teclado y a la barra de mando. 
La auténtica fuerza del gestor de teclas reside en el 
hecho de que el teclado es puro soft. Esto significa 
que el código obtenido de cada tecla física es defini- 
ble por el usuario. Esto facilita la implantación de 
programas tales como el CP/M, dado que podemos 
adaptar las funciones de las teclas según convenga 
para que den los códigos deseados en lugar de mo- 
dificar el programa para que acepte los códigos pro- 
ducidos por omisión. 

Hay dos tipos de código obtenible al pulsar una 
tecla: un carácter único ASCII o uno indicativo 
(token) de ampliación. El indicativo de ampliación 
puede ser considerado como un flag que sirve para 
obtener una cadena de caracteres, y no un simple 
carácter, a través de la simple pulsación de una 
tecla. 

El teclado es revisado cada cincuentavo de se- 
gundo en el reloj para uso general. Un mapa de 
estado de la tecla sirve para registrar qué teclas han 
sido pulsadas en la última revisión. Este mapa se 
emplea para asegurarse de que las teclas no sean 
leídas más de una vez y para determinar si se ha de 
repetir un carácter o no. También se dispone de un 
buffer que almacena los códigos que se obtienen de 
las teclas en el momento en que fueron detectadas; 
tales códigos pueden ser interpretados bien como 
caracteres ASCII, bien como indicativos de 
ampliación. 


El gestor de teclas 


Se puede acceder al gestor de teclas en varios nive- 
les distintos. El nivel más bajo permite al usuario 
comprobar si se está pulsando una tecla física en 
ese momento. 

El segundo nivel presenta el carácter único asig- 
nado a la tecla. Este carácter puede ser bien un 
valor ASCII, bien un indicativo de ampliación. Si 
se trata de un indicativo de ampliación, entonces es 
el usuario el que debe determinar la interpretación 
que se le ha de dar. Este nivel tiene en cuenta el 
estado actual de las teclas Shift y Control a la hora 
de determinar qué carácter ha de obtenerse. 

El nivel más alto da simplemente el carácter si- 
guiente que se ha pulsado en el teclado. Este carác- 
ter puede corresponder tanto a una pulsación de 
tecla única como puede ser el carácter siguiente de 
un indicativo de ampliación. 

Asociadas a cada tecla existen tres tablas de tra- 
ducción que determinan el código obtenido cuando 
se detecta una tecla pulsada en sus estados normal, 
shift o control. Cada una de estas entradas puede 
ser determinada y establecida individualmente, em- 
pleando las entradas detalladas en el diagrama. Ob- 


Clayton 


roline 


sérvese que los caracteres que van desde 8EO a 8 FC 
tienen un significado especial bajo BASIC, por lo que 
si un programa asigna una tecla para obtener uno 
de estos indicativos, se tendrá que reasignarlos 
antes de volver al BASIC. 

El listado primero muestra cómo se puede esta- 
blecer un conjunto de traducciones al entrar en la 
rutina, al mismo tiempo que se guardan sus estados 
iniciales. 


Indicativos de ampliación 


Los códigos del 880 al 89F son los denominados 
indicativos de ampliación (expansion tokens). Cuan- 
do son encontrados se almacenan en el buffer a 
menos que no sean extraídos por medio de KM — 
READ__CHAR o KM__WAIT__CHAR. En este caso el 
gestor de teclas trata de determinar qué cadena se 
asigna a ese indicativo de ampliación e inserta los 
caracteres en secuencia dentro del buffer hasta el 
final de la cadena. 


Gestión del teclado 










L. en 







Código de identificación 
A cada tecla se le asigna un número de tecla único imposible de 
alterar por el firmware. El código ASCII que se obtiene mediante 
una tecla se determina a través de tres tablas, que proporcionan 
el código de la tecla en su estado normal, de shift o de control 


AAA UU UL 


CEEI E EAS E 
CLjJODDDOOUDU 
EZIRDIEJGIDUUEC 
L SET CECEN 








Las cadenas de ampliación se almacenan en un 
buffer, que puede ser de cualquier tamaño según el 
número de cadenas requerido. Cada cadena puede 
componerse de un máximo de 255 caracteres siem- 
pre que haya espacio suficiente en el buffer, el cual 
debe hallarse en los 32 K centrales de la RAM. El 
tamaño del buffer y su posición se establecen por 
medio de KM__EXP__BUFFER. 

Cada indicativo de ampliación puede tener una 
cadena asignada mediante KM__SET__EXPAND. Los 
caracteres dentro de una cadena no son comproba- 
dos por el firmware, de modo que es posible obte- 
ner caracteres tales como 8FC (el indicativo para 
Break) para una rutina. Las cadenas asignadas a un 
indicativo de ampliación sólo pueden ser examina- 
das, 'caracter tras carácter, mediante la entrada 
KM. GET. EXPAND. 

Cada tecla en el teclado tiene un nimero asocia- 
do a ella. Este nimero es único y no puede alterar- 
se por medio del firmware, obteniéndose así un 
modo absoluto de referencia a la tecla. Los núme- 
ros de tecla se detallan en el Apéndice III del ma- 
nual de firmware y también se proporcionan con 
mucho esmero en los cartuchos de las unidades de 
disco del CPC 664 y del 6128. 

La entrada KM TEST. KEY es la entrada de 
nivel mas bajo dentro del gestor de teclas. Permite 
al usuario averiguar si una determinada tecla ha 
sido mantenida en el último rastreo del teclado, a 
excepción de las teclas Control y Shift. Esta entrada 
es especialmente útil cuando se comprueba una 
sola tecla; por ejemplo, cuando el teclado ha sido 


May sensible 

E Ermware mantiene un mapa de estado de las teclas que 
pstra las teclas pulsadas en el momento de la interrupción del 
BWI para uso general (cada cincuentavo de segundo). Los 
Sores de la tecla se almacenan en un buffer y el firmware 
lermite bien comprobar la pulsación de una tecla o bien esperar 
S pulsación 





Indicativos de ampliación 

Los códigos ASCII desde el 880 al &9F son tratados por el 
firmware como indicativos de ampliación. Por omisión, estos 
códigos se asignan a las teclas en el cuaderno numérico de 
teclas. A cualquiera de estos indicativos se les pueden asignar 
cadenas de ampliación. Éstas pueden tener hasta 255 caracteres 
de longitud y contener códigos de control 








Direcciones útiles 


88827 KM—SET—TRANSLATE est. unaentr. 
normalenlatabla 
detrad. deteclas 

8.8824 KM—GET—TRANSLATE leelaentr. normal 

actual en latabla de 






8BB2D KM—SET—SHIFT 








8.8830 KM—GET—SHIFT 


&BB33 KM—SET—CONTROL 







8BB36 KM—GET—CONTROL 





sondeado periódicamente para que la tecla Escape 

dé a entender que ha de concluirse el programa. 
También se proporciona una entrada exclusiva- 

mente ae las palancas de mando: KM GET 


JOYSTICK. Esta entrada lee los estados de la palan- 
ca de mando en el mapa de estado de las teclas y es 
el método más rápido de determinar su estado ac- 
tual. Por ello es especialmente apropiado para los 
programadores de juegos, dado que las palancas de 
mando deben ser leídas en todo momento con inde- 
pendencia de que se hayan alterado o no sus posi- 
ciones. 

Hay dos entradas del gestor de teclas en el segun- 
do nivel, KM__READ__KEY y KM. WAIT. KEY. La 
entrada KM__WAIT__KEY se emplea para dar la si- 
guiente pulsación de tecla. Si existe una entrada en 
el buffer del teclado, entonces se traduce bien en 
un carácter, bien en un indicativo de ampliación y 
se retorna inmediatamente; en otro caso, la rutina 
espera la siguiente pulsación de tecla y da su valor 
traducido. KM__READ__KEY también comprueba el 
carácter en el buffer de teclado, y si sólo hay uno, 
éste se traduce; de otro modo, la rutina retorna in- 
mediatamente, indicando mediante un flag que el 
buffer está vacío. KM WAIT- KEY encuentra un 
uso apropiado cuando un programa no puede con- 
tinuar hasta que haya recibido un input del usuario 
(p. ej., cuando se requiere una opción de menú). 
KM__READ__KEY deberá usarse cuando se sondea el 
teclado respecto a la pulsación de una tecla. 

El tercer nivel tiene dos entradas correspondien- 
tes: KM__READ__CHAR y KM. WAIT. CHAR. La 
Unica diferencia entre éstas y las del segundo nivel 
está en que sólo pueden obtenerse caracteres. Si se 
encuentra un indicativo de ampliación, la cadena 
de ampliación correspondiente es extraída carácter 
a carácter antes de ser examinada la entrada si- 
guiente en el buffer del teclado. 


Prioridad de carácter 


El gestor de teclas tiene, además del buffer de te- 
clado, un buffer de un solo byte conocido por prio- 
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ridad de carácter (putback character). Este buffer es 
consultado antes que el buffer principal y si contie- 
ne un carácter, se le da prioridad. Esto permite co- 
locar un carácter en cabeza dentro del buffer que 
puede ser utilizado, por ejemplo, para señalar 
como flag que ha ocurrido un determinado evento. 
El gestor de teclas sobreescribe este carácter priori- 
tario cuando se detecta un Break, ya que el indicati- 
vo de Break se inserta en calidad de carácter priori- 
tario. 

El diagrama muestra los distintos niveles en los 
que puede obtenerse un carácter desde el gestor de 
teclas. 

Cada tecla del teclado tiene asociados tres pará- 
metros de repetición. El primero determina si se 
puede o no repetir esa tecla; el segundo especifica 
la demora entre el momento de detectar la pulsa- 
ción de la tecla y el de permitir su repetición; el 
tercero es el intervalo de cada repetición. Las de- 
moras son especificadas en múltiplos de rastreos de 
teclado y por ello corresponden a un intervalo de 
un cincuentavo de segundo. 

Las determinaciones actuales de demoras pue- 
den ser realizadas por KM__GET__DELAY y pueden 
alterarse mediante KM__SET__DELAY. Las demoras 
son válidas para todo el teclado, por lo que no es 
posible definir valores específicos para las distintas 
teclas. 

El parámetro que determina si una tecla pueda 
opene o no es leído y variado mediante KM— 
GET__REPEAT y KM—SET—REPEAT. 


Interrupciones 


La tecla Escape es tratada por el gestor de teclas de 
modo distinto a las demás teclas. Cuando es pulsa- 
da, se llama la dirección de KM__TEST__BREAK. 
Esta rutina comprueba si también se pulsaron las 
teclas Control y Chift, en cuyo caso se realiza una 
restauración; de otro modo, la rutina retorna. Par- 
cheando esta dirección con la instrucción RET es po- 
sible, entonces, evitar que dentro de un programa 
se produzca una restauración. 

Hay también un evento que se proporciona para 
tratar las interrupciones. Este evento puede ser ini- 
cializado activándolo o desactivándolo a través del 
firmware. 


880-—89F Indicativos de ampliacion. 
880F correspondea la 
cadena de ampliacion 0, y 8.9F 
alacadena de ampliacion 32 


Codigos control cursor Basic 


Conmutador mayusculas on/off 


Cambiael estado actual de latecla 
mayusculas 


Conmutador de Shift on/off 
Cambiael estado actual dela 
tecla Shift 


Indicativo deignorar 

Este caracter sera ignorado 
sise retorna desde el gestor 
deteclas 


Traducción de teclas 


Este listado proporciona dos rutinas para permitir que un 
programa pueda configurar el teclado de modo que provea un 
conjunto predefinido de códigos durante un programa y 
devolverlo a su estado inicial a la salida. La primera rutina, 
Setkeys, se llamará al entrar en el programa. Ésta rastrea una 
tabla que contiene una lista de números de tecla y la traducción 
que debe tener. El estado actual de las teclas se lee y almacena en 
la tabla antes de asignar un nuevo valor a una tecla. La segunda 
rutina lee las traducciones originales en la tabla volviendo a 
asignarlas a las teclas. 

La tabla se establece aquí para configurar las teclas Cursor y 
Escape para ser utilizadas en un proceso de textos, pero puede 
ser ajustada a aplicaciones individuales 





FEFE 
c8 
23 
46 
23 
EB 
FS 
CD2ABB 
EB 
7 
2 
EB 


2882 
Yi 
TREZRASSQEYTASARSTTEZ3 


a+ 
3] 


sEgsssse 
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Por omisión, el evento está desactivado, de 
modo que se habrá de crear una rutina especial que 
puede llamarse cada vez que se detecta una pulsa- 
ción de la tecla Break. 

Si se devuelve el control después de llamar KM— 
TEST. BREAK, el gestor del teclado comprueba si el 
evento de break está desactivado. Si lo está, en el 
buffer se inserta el carácter &EF, y se dispara el 
evento de break. El puntero permite que el evento 
se nivele con el buffer del teclado hasta el punto 
donde se encontró el break. 

Con este análisis del gestor de teclas damos por 
concluida nuestra serie sobre el sistema operativo 
del Amstrad CPC. 





Con este fasciculo se han puesto 
ala venta las tapas correspondientes 
al noveno volumen 


El juego de tapas va acompañado de un sobre con los trans- 
feribles, numerados del 1 al 10, correspondientes a los volú- 
menes de que consta la obra; esto le permitirá marcar el 
lomo de cada uno de los volúmenes, a medida que aumente 
su colección. 


Para encuadernar los 12 fascículos que componen un volu- 


men, es preciso arrancar previamente las cubiertas de los 
mismos. 


MI COMPUIER E 


No olvide que, antes de colocar los fasciculos en las tapas 
intercambiables, debe usted estampar el número en el lomo 
de las mismas, siguiendo las instrucciones que se dan a con- 
tinuación: 





* cm 





Desprenda la hojita de protección y aplique el transferible en el lomo de la cubierta, 
haciendo coincidir los ángulos de referencia con los del recuadro del lomo. 


Con un bolígrafo o un objeto de punta roma, repase varias veces el número, presio- 
nando como si quisiera borrarlo por completo. 


Retire con cuidado y comprobará que el número ya está impreso en la cubierta. Cúbra- 
lo con la hojita de protección y repita la operación anterior con un objeto liso y redon- 
deado, a fin de asegurar una perfecta y total adherencia. 


Cada sobre de transferibles contiene una serie completa de números, del 1 al 10, para 
fijar a los lomos de los volúmenes. Ya que en cada volumen sólo aplicará el número 
correspondiente, puede utilizar los restantes para hacer una prueba preliminar. 
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Si desea recibir algún fascículo atrasado o tapas, según las condiciones establecidas en 
el recuadro de la segunda página de cubierta («servicio de suscripciones y atrasados»), 
basta que rellene en LETRAS MAYUSCULAS este boletín y lo envíe a Editorial Delta, 
S.A., Aribau, 185, 1.?, 08021 Barcelona. 
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Eraras fès tapas 
intercambiables para 
encuadernar 12 
fasciculos de 


Cada juego de tapas 
va acompanado de 
una colecci6n de 
transferibles, para 
que usted mismo 
pueda colocar en 
cada lomo el 
número de tomo que 
corresponda 
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